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御注意 


⑴本書は著者らが調査した結果を出版したものです。 

⑵本書は内容について万全を期して作製いたしましたが，御不番な点や誤り，記敕も 
れなどお気付きのことがありましたら，出版元まで書面にて御連絡ください。 

⑶本書の内容に関して運用した結果の影響については⑵項にかかわらず責任を負いか 
ねますので御了承ください。 

⑷本普の全部または-一部について出版元から文書による許諾を得ずに，いかなる方法 
においても複写，複製することは禁じられています。 
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まえがき 

富士通のパーソナルコンピュータ Fujitsu Micro 7 (FM 7) は，以前に発表さ 
れた F M 8の実績をふまえた上で改良とコストダウンをはかり，12万円台という 
低価格で発表され，着実に台数を伸ばしています. 

この FM 7 は，ホビーユースを意識したマシンであるにもかかわらず， FM 8 
からうけついだ大きな W " 能性を秘めています . F M 7は究極の8 bit マイクロブロ 
セッサ6 8 6 0 9を搭載，しかもクロック周波数2 MHz の高速動作であること等， 
数多くの魅力をもったパーソナルコンビュータといえます. 

しかし，この魅力も FM 7を単なる B AS I C マシンとして使用していたので 
は半減してしまいます.そこでマシン語を使用することになるわけですが，特にハ 
ー ドウエアと密接に関わっている部分のプログラミングは繁雑な点が多くなりま 
す.幸い， FM 7 には ハー ドウヱアとの I /〇をつかさどる B I OS が搭載され， 
その仕様も公開されており，また ， BAS I C 内部のシステムサブルーチンには 
有用なものも多く含まれ，これらを利用することにより，プログラミングは容 
易なものとなります. 

本書では ， B I 0 S および Display Sub System の使用法を豊富なサンプルフロ 
グラムをつけ加えて説明し，その理解の一助とすると同時に ， B A S I C 内部の有 
用なシステムサブ ルー チンをピックアップして解説しています.このように本書 
は， FM 7 の魅力を十二分に引き出し，その持てる機能を思うままに活用できる 
ようにするため，筆者らが独自に解析した FM 7のファームウヱアの内容をまと 
め上げたものです. 

読者の方々が，本書をマシン語プログラミングの手引書として利用していただ 
ければ，本望と思っています. 

本書の執/筆.出版に当って，多くの方々にお世-話になりましたことを， i * く感 
謝いたします. 
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く本文内の略記法について〉 


A レジスタ， AccA，A 
B レジスタ， AccB , B 
D レジスタ， AccD , D 
CCR , CC レジスタ 
DPR , DP レジスタ 

E A 

I X ， X ， X レジスタ 
I Y , Y , Y レジスタ 

PC , PCR 
$ 

S , S P 

u，u s 


FAC 

A A 
reg 


= アキュームレータ A 
=アキュームレータ B 
= 倍長アキュームレータ D 

=コンディシヨンコードレジスタ 
=ダイレクトページレジスタ 
=実効ア ドレス 
=インデックスレジスタ X 
ニインデックスレジスタ Y 
ニプログラムカウンタ 

= 16 進 

=ハードウエアスタックポインタ 
= ユーザー スタックポインタ 

=10進数1ケタ 
=16進数〗ケタ 
=代入 

=カッコ内の値をアドレスとしたとき，そのア 
ドレスの内容 

= フロ ー ティング•アキュ ー ムレ ー タ 

= コントロ ー ル A 
ニレジスタ 
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BASIC Input Output 


1—1 B I OS の概略 


F — BASIC では， I /0 機器への入出力処理のうち，割り込み処理と ， R 
S 2 3 2 C 関連機器への入出力を除いた入出力処理を ， BIOS (Basic Input 
Output System ) と呼ばれるフ 。ロ グラムモジュールを介して行っています. 

このことは，ユーザーが I / O 機器への入出力を行なう際， BIOS を使用す 
ることにより，比較的簡単に各 I /〇機器への入出力を行えるという利点をもた 
らします. 

この B I 0 S は，以下の I/O 機器をサポートしています. 

(1) アナログ入カポート 

(2) オーディオカセット 

(3) ブザー 

(4) 漢字 ROM 

(5) プリンタ 

(6) ディスク 

(7) ディスプレイ•サブシステム（ディスプレイ•キーボード） 

(8) バブル カセット 

これらの機器への入出力は ， B I 0 S 内のドライバルーチンをサブルーチンコ 
—ルすることにより行います.このとき ， B I 0 S の人口 （エントリ•アドレ 
ス）は，1ヶ所に集中されており各リクエストの指定やパラメータの受渡し等は 
すべて R C B (Request Control Block ) とよばれる領域を介して行います. 

RCB は通常 RAM 上の8バイトを必要としますがリクエストによって必要な 
バイト数に違いがあります. 

簡単な B I 0 S の使用手順をフロ ー チャートに示します.パラメータの内容等 
はリクエストによって違いがあるので，各リクエストの解説を御参照下さい. 

実際に B I 0 S をサブルーチ ン コールする方法には4 つの 方法があります. 

(1) J S R [ $ F B F A ] 

(2) JSR $ DE (ただし DP レジスタ=$ 0 0のとき） 

(3) J S R $ F 17 D 

(4) B I 0 S のリクエスト判断-分岐のルーチンを介さずに直接各リクエ 
ストのジャンプ先をコ ー ルする.ただしこのとき D P レジスタ=$ F D 
でなければならず，レジスタ内容も保障されない. 

注）このうち⑷は使用しない方が望ましく，また⑶も FM 8との互換性を 
欠くのでその点に注意する必要があります.ちなみに F — B A S I C 



内部では⑵の方法が使用されていますが， （1) の方法を用いるのが最適 
とな 1 )ます. 

また ， B I 0 S は CC レジスタ （ E , F ， I は保存）を除いてレジスタ内容を 
保存します. 

B I 0 S は I / O を扱っているため I / O 機器にエラーが生じる場合がありま 
す.このとき B I 0 S はエラー番号を （ RCB +1) にセットすることにより， 
ユーザに対してエラーが生じたことを伝えます.同時にキャリ ー フラグもセット 
するのでキャリーフラグを見ることによってもエラーの有無を知ることもできま 
す.しかし B I 0 S はエラーに対してユーザーへ報告するだけでエラー回復処理 
やリトライなどの処理は一切行わないので，エラーが生じた場合にはユーザー側 
で適切な処置を施す必要があります. 

エラーが生じず正常にリクエストを終了したときには （ RCB +1) に$00 
がセットされ，キャリーフラグはクリアされます.またリクエストによってはエ 
ラーが生じないものもあり，この場合でも$ 0 0がセットされます. 

また， BIOS は BIOS のワークエリアとして $ FFE 0 〜 SFFE 8 を使 

用しているので，ユーザーはここを変更してはいけません.このワークエリアは 
ディスクの入出力とサブシステムの入出力において使われています. 

$ FFE 0 最後にアクセスしたディスクドライブの番号 （0 〜 3) 

$ F F E 1 ドライブ0のヘッドのあるトラック番号（〇〜3 9 ) 

$ F F E 2 ドライブ1のヘッドのあるトラック番号 （ 0 〜 3 9 ) 

$ F F E 3 ドライブ2のヘッドのあるトラック番号 （ 0〜3 9 ) 

$ F F E 4 ドライブ3のヘッドのあるトラック番号 （ 0〜3 9 ) 

$ F FE 5 bit 7がディスクのモータの状態を示しています . bit 7が1 で、 

あるとモータが回転していることを示しています. 
$ FFE 6~$ FFE 7 サブ CPU とのコマンドのやりとりで使用します • 
$ FFE 8 ドライブ選択時に使用します.ディスク関係のリクエストにお 

いて，選択するディスクドライブの番号 （0 〜 3) を示します. 



RCB 領; t 或として RANL ヒ t 
8バイトを確保する 





1 — 2 各リクエスト解説 


BIOS には，全部で2 8個 （$ 0 0〜$1 B ) のリクエストがありますが， 
そのうち4つは無効です.リクエストの指定は R CB の1バイト目 （（R CB + 
0)) にリクエスト番号をセットすることにより行います. BIOS はこの番号 
を読み取り各処理を実行します（リクエスト番号でない番号を指定した場合には 
B I 0 S エラーとなります）. 


B I OS リクエスト番号表 


1 

6 進 

10 進 

*** ラベル名 

[1 

6 進 

10 進 

ラベル名 

$ 0 0 

0 

A N A L G P 

$ 0 E 

14 

LPOUT 

$ 01 

1 

MOTOR 

$ 0 F 

15 

HDCOP Y 

C 

%, 

i 0 2 

2 

CTBWRT 

$ 10 

16 

S U B 0 U T 

C 

1^ 

B 0 3 

3 

CTBRED 

$ 11 

[17 1 

S UB I N 

$ 0 4 

4 

* I N T B B L 

$ 12 

18 

INPUT 

K 

B 0 5 

5 

SCREEN 

$ 13 

19 

I NPUTC 

C 

K 

B 0 6 

6 

* WRTBBL 

$ 14 

2 0 

OUTPUT 

< 

K 

B 0 7 

7 

* REDBBL 

$ 15 

21 

KE Y I N 

C 

K 

B 0 8 

8 

RESTOR 

く 

K 

B 16 

2 2 

K AN J I R 

$ 0 9 

9 

DWR I TE 

$ 17 

2 3 

LPCHK 

C 

B 0 A 

10 

DREAD 

$ 18 

2 4 

B I I N I T 

$ 0 B 

11 

本本 

Cj 

N 

i i9 

2 5 

本* ** *** 

$ 0 C 

12 

BEEPON 

<3 

> 1 A 

2 6 

本本 


BOD 

13 

f BEEPOF 

C 

B 1 B 

2 7 

幸本 


* :バブル関係のリクエスト，バブルについては F — B A S I C でもサ 
ポート対象から除外されたので，これらのリクエストに関しては解 
説しません. 

** :無効となるリクエスト. FM 8では音声合成のリクエストでありこ 

れらのリクエストは何もせずに戻リます（エラーも生じません）. 

*** :混乱をさけるためラベル名は「ユーザーズマニュアルシステム仕様」 

と冏一の ものを使)|1しています， 





く各項目の見方〉 

各項 H は用途別に分類してあります. 


^ 蘇]各ルーチンの機能を簡単に示します. 

パラ/一夕 I 各ルーチンを呼び出すにあたって設定すべきパラメータについて示 
します . B I 0 S については RC B のセットが中心となるので， RCB について 
は簡単な図を使用しています. 

例） X レジスタ —R CB 先頭アドレス 

インデックスレジスタ X に RCB の先頭アドレスをセツトするこ 
とを示します. 


RC B + 0 

1 


リクエスト番号 〇 




RCB +0 番地にリクエスト番号をセットすることを示します. 
さらに，このときのリクエスト番号は$01であることを示します. 
復帰情報1 各ルーチンを呼び出したあと，ルーチンの側から返される情報につ 
いて示します. 


解 説各ルーチンの詳しい解説，注意事項，予備知識等を示します. 


サンブル |いくつかのルーチンについてサンプルプログラムを付けました.サ 
ンプルプログラムは一部を除いてマシン語で書かれており，適宜実行例を付してあ 
ります. 

なおアセンブルは富士通 ㈱ のアブソリュートアセンブラを使用したものです.こ 
の際， FCB , FCC , FDB などの擬似命令ではすべてのデータを出力しない 
旨定 （ N 0 GEN ) がしてありますので，モニタなどでオブジヱクトを打ちこむ 

方は注意して下さい.（詳しくは付録を参照） 

また，マシン語プログラムは特に示してあるものを除いてポジション•インデ 
ィペンデント（位置独立〉です.ただし，実行に当って， DP レジスタは0であ 
ることが必要です. 






BIOS : BIINIT 一 B I OS イニシャライズー 



RC B + 


B I OS のイニシャライズを行う. 

X レジスタ —R C B 先頭アドレス 
0 リクエスト番号 一— $ 



このリクエストは RCB 領域としては，2バイトしか必要としません. 


解 説 I このリクエストは具体的には，スピーカーを動作可能にし，プリン 
夕に対してダミーのデータ （$0 0) を送出するだけです. 

F —BASIC では，リセット時及びアボート時に，このリクエストを実行し 
ているので，ユーザーが B I 0 S の他のリクエストに先立って，このリクエスト 

を呼ぶ必要はありません. 


BIOS : ANALGP ー アナログポート入力 一 



アナログポートから， A / D 変換されたデータを読み取る. 


X レジスタ— RCB 先頭アドレス 


RC B + 0 


1 


リクエスト番号 


〇 


$00 


チャンネル番号 




3 


電圧レンジ 


， H ， ($ 4 8 )- .…. 〇〜 2.5 V 


$ 4 8以外 


0—0*625 V 


のリクエストは RCB 領域としては，5バイトしか必要としません. 

( RCB +4) :符号なし8ビットの A / D 変換データ 



解 説|このリクエストは， FM 7に FM 8フルコンパチブルの A / D 変換 
基板（数社から発売されている）を実装していないと意味をもちません. 

基板を実装している場合には， F — BAS I C の ANPORT 関数も，正常に 
動作します. 

このリクエストでは，エラーは生じません. 










PAGE 00 1( 
01 000 


o1o i o 


01 020 


01 030 


01040 


01 050 


01 060 


01 070 


01 080 


01090 


0 " 00 

5000 

0111 0 


01111 


01115 


011 i6 


01120 

ZOOO 

01130 

5003 

01140 

5006 

01150 

5009 

Ol 160 

50 OB 

0 U 70 

5000 

01180 

50 OF 

01190 

5011 

01 200 

5014 

01210 

5016 

0 1211 


01215 


01216 


01220 

5019 

01230 

501 C 

01240 

50IF 

01 250 

5022 

01260 

5024 

01270 

5026 

01280 

5028 

01290 

502A 

01300 

502D 

01309 


013 i 0 


0131 1 


01320 

5030 

01330 

5033 

01340 

5035 

01 350 

5037 

01360 

503 A 

01370 

503C 

01371 


01375 


01376 


Ot 380 

5040 

01390 

5042 

01 400 

5043 

0141 0 

5045 

01420 

5048 

01430 

504B 

ux 440 

du4D 

01441 


01445 


01446 


01450 

5050 

01460 

5053 

01470 

5055 

01480 

505 7 

01485 


0 3 490 


01495 


01500 

5058 





> GET 

A/D 


箐 

□FT 

9BDB 

MESSAB 

EDO 

DB54 

KEY IN 

EDU 

B615 

D100UT 

EDU 

DOBE 

OUT 

EOU 

FBFA 

BIOS 

EG! LI 


# 

0R0 

5000 

START 

EQU 


CONVERTED DATA 

(BIOS:ANALGP) 
N□0 ,H,NOS, F^255,NDG 
$9BDB 
¢0854 


$B615 
丰 DOSE 
$FBFA 

¢5000 

箦 


output from (X +1)till0 
key input with wait 
output Dreg* in decimal 
one character out 
BIOS (extend-indirset) 


箐 



* set channel 

簧 

LEAX 

no. (0 _ 

_ 3) 

SC 54 

く MES 卜 1 

^PCR message output 

9BDB 

JSR 

MESSAG 


DB54 

BETCHA JSR 

KEVIN 

qet keyinput 

30 

CHPA 


keyinput must be '0 

F9 5006 

BLO 

GETCHA 


T 

» 

CMPA 

# J 3 


F5 5006 

BHI 

GETCHA 


DOBE 

JSR 

OUT 

echo back 

03 

ANDft 

林 03 

channel no - 0" o_ 

5030 

STA 

CHANE し 

set cannnel no * 


_ ■- 


苷 

* 

长 


set voltage range ( # H' or f L 


8C 47 


LEAX 

<MES2-1, 

PCR message output 

9BDB 

DE54 

GETRAN 

JSR 

JSR 

MESSAG 
KEY IN 

get keyinput 

48 


CI1P A 

# 

keyinput must be 'H 

04 502ft 


BED 

R01 _ 

ate J 

4C 


CMPA 

4T し ’ 

Jl » / dL —声 *1 T l'^ /l i 

A 丁 1 ^ し w n it し 1 ^ ‘ 

FS 50 IF 


BNE 

GETRAN 

% J i づ L J l 1 . # i- 

f _mL r«w j I 

DOSE 

RO1 

JSR 

□UT 

echo back 

508 E 

菁 

キ get i 

脊 

DATAIN 

STA 

RANGE 

set range 


converted a ^ ^ { 

S 匚 55 

LEAX 

<RGB,PCR 

i ™ p ， 

: load rcb address 

00 


'LDA 

#¢00 

bios request ANALGP 

84 

l 

STA 

,x 

set request no. 

50 SD 


し DD 

CHANEL 

set channel no, ^ r 

02 

9F FBFA 


STD 

JSR 

2,X 

[BIOS] 

bios call 


or ， L 


# 

箐 

簧 


output A/D converted data 


04 

06 

SC 27 

9EDB 

06 

ヒ • 匕 I D 


し DB 

C し RA 

PSHS 

し EAX 

JSR 

PULS 

JSR 


4，X 


get A/D converted dat 


D save data 

<MES3-1,PCR message output 

MESSAG 

data come back 
data output 


D 

D 1 OCju r 


* 

* wai t 

菁 


newt data get timing 


DB54 

20 

D9 5030 


JSR 

CMPA 

BEQ 

RTS 


KEVIN 

DATAIN 


wai t space key 
space ? 

yes f QBt next data 
no,end of getting data 


箐 


CD 


* messages 

青 

MES1 FCB 


$0D, 丰 OA 


9 


アナログポートから， スぺ ー スキ ー を押す ごと にデータを入力し表 
示します.基板を実装していない時には常に2 5 5が返されます. 



0 DD i 5 1 2 D47 ODDI 71607 O 6 7 CDD&F4 O D5D D 1 7 9 
3BBS 2 8 2 BaB3B BB28 2 BB 3 8AF E A E 4 3 3 B3B B 8 2 3 




01510 

SOSA 

43 


FCC 

01520 

5063 

00 


FCB 

0 i 530 

5064 

20 

MES2 

FCC 

01540 

506 F 

00 


FCB 

01550 

5070 

0D 

MES3 

FCB 

01 560 

5072 

20 


FCC 

01570 

5087 

00 


FCB 

01575 



箐 


01580 



餐 war king 

0158S 



普 


0 1590 

5088 

0005 

RCB 

RMB 

01600 

508D 

00 

CHANEL 

FCB 

01610 

508E 

48 

RANGE 

FCC 

01615 



# 


01620 


5000 


END 

TOTAL 

ERRORS 

00000—-00000 




TOTAL WARNINGS 00000— 一 00000 


PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=508E 
PROGRAM ENTRY ADDR=5000 


* Channel= # 

0 

J Range = 4 
0 

$0D,$0A 

A/D converted data = 


ea 

5 only needs 5 bytes 千 or rcb 

0 channel no* 

# H ' voltage range 

START 


exec S: 卜 15000 

Channel=0 Range =H 
A/D converted data =255 
A/D converted data =255 
A/D converted data =255 
Ready 
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30 

04 5011 

31 

14 5025 

D08E 


32 

8C 2E 
Ol 
B4 
02 

9F FBFA 
DB 5000 


U<X>3 


M01 

* 

菁 m 
篑 


CHPA 

# 

keyinput i 

must be 

BEQ 

M01 



CMPA 

# '1 



BNE 

MO 2 

else,end 


JSR 

OUT 

eczhobac Y 


control 



SUBA 

1 + 1 

1->SFF,0- 

>*FE 

し EAX 

<RCB,PCR 

1oad rcb 

address 

LDB 

#¢01 

bios request MOTOR 

STB 

,X 

set request no* 

STA 

2,X 

set motor 

■flag 

JSR 

CB1DS3 

call bi ob 


BRA 

START 




or 


M02 RTS 

簧 

* messages 

资 

PROMPT FCB 

FCC 

FCB 

* 

♦ working area 

簧 


$OD f SOA 

J Motor on 

o 


1or Motor of-F 


RGB 


RMB 


only needs 3 bytes for rcb 


01170 

5009 

81 

01180 

50 OB 

27 

011 90 

50OD 

81 

01200 

50 OF 

26 

01210 

5011 

BD 

01220 



01 230 



01240 



01250 

5014 

80 

01260 

5016 

30 

01270 

5019 

C6 

01280 

5016 

E7 

01 290 

5010 

A7 

01 300 

50IF 

AD 

01310 

5023 

20 

013；：0 

5025 

39 

01330 



01340 



01350 



01360 

5026 


01370 

5028 


01380 

5046 


01390 



01 400 



01410 



01420 

5047 



BIOS : MOTOR 一カ セット モーター コント ロー •ル 




纖 

m 

p m 

ハフメ- 

-夕 


オーディオカセツトのモ ー タ ー をコントロ ー ルします, 


RCB + 0 


1 


X レジスタト RC B 先頭アドレス 



$FF 


$ FF 以外 


モ ー タ_ 〇 |\| 

モ—夕— 〇 p F 


このリクエストは RCB 領域としては3バイトしか必要としません. 


モ—ター フラグの値によってリ モー ト端子を コント ロー ル します, 
のリ ク エス トでは エラーは 生じません. 




か1をキーインする 


で，りモ 




端子をコントロールします. 


PAGE 001 ( 


〇 1 t )( H J 
01010 
CM 020 
01030 
01040 
01050 
01 060 
01070 
01000 
〇 1090 
〇11 00 
0111 C) 
01120 
01130 
01140 
01150 
01160 


5000 


5000 30 
5003 BD 
5006 BD 


9BDB 

DBS4 

D08E 

FBFA 


5000 


SC 22 

9BDB 

DB54 


* 

* MOTOR CONTROL 

簧 

OPT 

MESSAG EQU 
KEYIN EOU 
OUT EQU 
BIOS EQU 

ORG 

START ECU 

箐 

* get motor 

* 

LEAX 
JSR 
JSR 


(BIOS:MOTOR ) 

H t NOS,P=255,NOD,NOG 

*9BDB output from (X+l) till 

key input with wait 
one character aut 
BIOS (gk tend-indirsct) 


* DB 54 

$D08E 

$FBFA 


¢5000 

於 


flag 


<PROMPT-1,PCR output message 
MESSAG 

KEYIN keyinput 


0 


D D 0- 
0 40 
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并 


PROGRAM BEGIN ADDR-? 000 
PROGRAM END ADDR=5049 
PROGRAM ENTRY ADDR=^ 5000 


ex ec 5000 

Motor on =1 or Motor o + 干 
Motor on =1 or Motor o-f f 
Motor on =1or Motor of i 
Motor on - 1 or Motor of 干 
Motor on ~1or Motor of + 
Ready 


01430 

01440 5000 END START 

TOTAL ERRORS 〇〇〇〇〇--〇〇〇〇〇 
TOTA し WARNINGS 00000—00000 


1 c 1 c 

^:〇:"?.^- 
LI. tj Li. 

r- c c c c 

ii 11 li it u 


12 


BIOS : CTBWRT — カセットテープ 1 バイトライト ー 



カ セツ ト テープ t 


イトのテータを書き込む 


X レジスタ— RCB 先頭アドレス 


R C B + 0 


1 


リクエスト番号 


〇 


書き込みデータ 


$0 2 


のリクエストは RCB 領域としては，3 


卜しか必要ありません 





カセッ ト テープに1バイ トの データを 書き込みます. ルーチン 内部 


で1 . 2 MHz か2 MHz かを検出して，い 

この リク エスト では エラー は生じません • 

$ A A を出力した時の波形を示します. 


つも同じ波形になるようにしています. 


High Level 


約20 0 a 


is 


約400 ys 
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BIOS I CTBRED — カセットテ ー プ1バイトリ ー ドー 


機 能| カセツトテープから〗バイト読み込みます. 
パラメー タ] X レジスタ — RC B 先頭アドレス 

RCB +0 |リクエスト番号 ——$0 3 


この 1 ) クエストは RCB 領域としては，3バイトしか必要ありません. 

復帰情報 1 ( RCB +2) :読みこんだデータ 

解 説 1カセットテープから1バイト （8 ビット）のデータを読み込みます. 
CT BWRT 同様，ルーチンの内部で CPU のクロックを判別しています. 

この リクエストは1バイトを正常に読み込むまで， Break キーを押さないかぎ 
りループしつづけます，（エラーも生じません.） 

Break キーが押された時には， $0 6 7 8 (ABORT T ) にジャンプして， 

F — BAS I C の コマンド レベルになります. 

また，このリクエストを使用する場合には，時間的な考慮も必要です. 

補足： FM 7のテープ入出力全般にいえることですが， カセットテープレコーダ 
一との相性が悪いとなかなかデータを読み込まなくなります.この原因の一つ 
に，テープ レコ ー ダーの 同相 • 逆相というものがあります. F M 7 のテ ー プリ 
—ドルーチンは，このことを考慮していないので，読み込まない場合（逆相の 
とき）は，ケーブルの線を逆にすると良い場合があります. 


サンプル テープ中のデータを1バイトずつキャラクタで出力します. 


PAGE 001 { , ) 

01000 * 


01010 




* 

tape dat 

01 020 




升 


01030 




菁 


01 040 




簧 

1 ! 1 not 

01 050 




箐 


0i060 




箐 

! ! ! must 

01070 






01080 





OPT 

01 090 



9BDB 

MESSAG EQU 

01100 



FBFft 

BIOS EQU 

01110 






01120 

5000 




□RG 

01130 



5000 

START EDU 

01140 




箐 


01150 




菁 

output m 

01160 




* 


01170 

5000 

SE 

502 B 


LDX 

01180 

5003 

BD 

9BDB 


JSR 

01190 




箐 



a output in character 

(BIDS:CTBRED) 

position independent !!! 

be CONSOLE 0,25,0,1!!! 

M,NDO,NOS, F ヒ 255,NOG _ 

S9BDB output +ram (X+1)till 0 
tFBFA BIOS <e>?tend —i ndi rect > 

¢5000 

簧 

0ssag0 

#MES—1 output message 
HESSAB 


14 






01 200 




并 mot or on 




(M 2 1 0 




箐 





01220 

5006 

SE 

503 B 


LDX 

轉 RCBO load 

rcb 

i pr 

01230 

5009 

AD 

9F FBFA 


JSR 

[BIGS] 



01240 




簧 





01250 




* get 

tape data (Ibyte) 



01260 




普 





01270 

500 D 

8E 

503E 

GET 

LDX 

林 RCB1 load 

rcb 

f or 

01280 

5010 

AD 

9F FBFA 


JSR 

[BIOS] 



01290 




菁 





01300 




* output data 

in hBK 



01310 




斧 





01320 

501 4 

A6 

02 


し DA 




01330 

50 i 6 

81 

20 


CMPA 

# spase 

t 


01340 

5018 

25 

04 50IE 


ECS 

DOT i-f asc<*lF or 

01350 

501 A 

Si 

7F 


匚 MPA 

#$7F then 

output 

01360 

501C 

26 

02 5020 


BNE 

ASC 



01 370 

50IE 

86 

2E 

DOT 

LDA 




01380 

5020 

B7 

5047 

ASC 

STA 

CHR 



01390 

5023 

8E 

5041 


LDX 

#RCB2 load 

rcb 

子 or 

01 400 

5026 

AD 

9F FBFA 


JSR 

[BIDS] 



0141 0 

502 A 

20 

El 50 OD 


BRA 

SET 



01420 









01430 




箐 message 




01440 




脊 





01450 

502C 


ODD A 

MES 

FDB 

*ODOA 



01460 

50 2E 


74 


FCC 

f tape data = 



01470 

503A 


00 


F 匚 B 

0 



01480 




# 





01490 




* rcb 





01500 




* 





01510 

503 B 


01 

RCBO 

FOB 

$01,0,tFF 



01520 

503E 


03 

RCB1 

FCB 

¢03 ,0,0 



01530 

5041 


14 

R 匚 B2 

FCB 

$14,0 



01540 

5043 


5047 


FDB 

CHR,1 



01550 

5047 


00 

CHR 

FCB 

a 



01560 




菁 





01570 



5000 


END 

START 




TOTAL ERRORS 00000——00000 
I rj r AL WARNINGS 00000——00000 

PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=5047 
PROGRAM ENTRY ADDR=5000 


list 

10 ^ TEST PROGRAM FOR CTBRED 
20 PRINT M TEST PROGRAM ! ! ! __ 
30 GOTO 20 

Ready 

save M CASOsTEST” 

Ready 

console 0 ,25,0,1 


Ready 

e;，ec S^H 5000 
tape data - 


バー TEST 


■ TEST PROGRAM FOR CTBRED.. 「*.7 "TEST PROGRAM ! 1 1 ” … 3 … 隱、徽 


Abort 

Ready 


MOTOR 


CTBRED 


*7F 


OUTPUT 






BIOS: BEEPON-BEEPOF 




ビープ音発生•ストップー 



ブザー音をコントロールします . 


X レジスタ — RCB 先頭アドレス 


RCB+ 0 



ブザー音 ON 


$ 0 C 


ブザー音 O FF^__$ 0 D 


このリクエストでは， RCB 領域としては 2 バイトしか必要としません . 



F-BAS I C の BEEP 


BEE P 0に相当する動作をします. 



キー入力に応じてブザーを ON • OFF します. 


PAGE 

001 ( 


, > 






01000 




簣 





0101 T) 




* 

BEEP 

CONTROL 



01 020 







(BIDS:BEEPON,BEEPOF) 

01 030 






OPT 

M, NOS, F_= 

^255* NOD,NOG 

01040 



9BDB 

MHSSAG 

EDU 

$9BDB 

output from (X+1)till 

01 050 



DB54 

KEVIN 

EQLJ 

*DB 54 

key input with wait 

01060 



B03E 

OUT 

EDU 

$DOBE 

one character out 

01 070 



FBFA 

BIOS 

EQU 

$FBFA 

BIOS <extend-indirect) 

0 i 080 




* 





01090 

5000 





ORG 

¢5000 


01100 



5000 

START 

EDU 

箐 


01110 




* 





01120 




* 

get 1 

request 

no, 


01130 




骛 





0 1140 

5000 

30 

SC iF 



LEAX 

<PROMPT-1,PCR output message^ : 

01150 

5003 

BD 

9BDB 



JSR 

MESSAG 

^ \ く€プい . 1 

01160 

5006 

BD 

DB54 



JSR 

KEY IN 

key input ^ -1、 v 

01170 

5009 

BD 

DOSE 



JSR 

OUT 

echoback J 求 ^ 

01180 

50 OC 

C6 

OC 



LDB 

#*0C 

bios request BEEPON 

01190 

50 OE 

81 

31 



CMPA 

林 ， 1 

BEEPON^ f 1‘ ? 

01 200 

5010 

27 

06 5018 



BED. 

BEEP 

yes v RDND,=$0C 

01210 

5012 

5C 




INCB 


bios request BEEPDF 

01220 

5013 

81 

30 



CMPA 


BEEPOFF ゴ ? 

01230 

5015 

/ 

01 5018 



BEQ 

BEEP 

yes,RQNQ-=$0C 

01240 

5017 

39 




RTS 


no,end of execution 

01250 




¥r 





01260 




簧 

beep 

control 



01270 




斧 





01230 

5018 

30 

BC 27 

BEEP 

LEAX 

く RCB,PCR 

: set rcb address 

01290 

50 IB 

E7 

84 



STB 


set request no* 

01 300 

50ID 

AD 

9F FBFA 



JSR 

[BIDS 〕 

call bios 

01310 

5021 

20 

DD 5000 



BRA 

START 


01320 




斧 



9 


01330 




箐 

message 



01340 




箐 





01350 

5023 


OD 

PROMPT 

FCB 

$OD,$OA 


01360 

5025 


42 



FCC 

r Beep on 

i = i or Beep ai i =0 7 

01370 

5041 


00 



FCB 

0 


013 BO 




箐 





01390 





work 

i ng area 


01400 




簧 





01410 

5042 


0002 

RCB 

RMB 

n 

only needs 2 bytes + or 

01.^20 




箐 





01430 



5000 



END 

START 



rcb 


PROGRAM BEGIN ADDR=5000 
PRUQRAM END ADDR^ 5043 


16 






PROGRAM ENTRY ADDR=5000 


ec ?4-15000 


Beep 

on 

: 1 

or 


on 

71 - 1 

or 

F-f-'Bp 

on 

IT ： 1 

or 

Beep 

an 

二 ] 

or 

Peep 

on 

二 i 

or 


P^^dy 


Bee?p of f =0 
Beep D-f f =0 
Beep off —0 
Beep of f =0 
E&ep of f - 0 




BIOS : KANJIR 一 漢字 ROM データリードー 



漢字 ROM から指定された J I S コードの漢字のドットパターンを 


取り出す 



X レジスタ— R C B 先頭アドレス 


RCB + 


1 


4 

5 


リクエスト番号 


〇 


データバツフア 
先頭アドレス 


J I S コード 


BUFFER 


〇 


〇 


$ 1 


F — BAC 丨 C 文法書 
參照 



このリクェストは ， RC B 領域として6バイトしか必要ありませんが，ドット 
パターンの格納用に3 2バイトのバッファを RCB と別に確保の必要があります. 
復帰情報 1漢字 ROM から指定された J 丨 S コードの漢字のドットパターンを 
3 2バイトのバッファにセットします. 


墨 _監 J J I S コードについては 「 F-B A S I C 文法書 」， ROM のアド 

レスは，「ユーザーズマニュアルシステム 仕様」 を御参照ドさい. 

J I s コードにないものを指定した場合には，空白 （$0 0) でデータ八ッフ 
アをクリアします.よってエラーは生じません. 


サンプル 漢字 ROM のフォントを表示します. 


100 # 

110 ， KANJI-R 0 M read font display 
120 . (BASIC) 

130 INPUT "JIS CODE ,C 0 DE* . ^ 

140 IF CODEW . 1 THEN END 嘱 '' へ 

150 C(DDE=VA し卜 T+CODEI) li ： 

160 IF C 0 DE <0 THEN CODE^CODE^ 65536 ! 

170 POKE 5002 , INT (CODE/ 256 ) s ^ set JIS code (high) 

180 POKE 500 3 ,CODE- 1 NT(CDDE/ 256 )* 236 : # 《 low) 

190 EXEC ?/H 5000 

00 I NT 一 _" — ———*—— ti 

210 SOTD 130 
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PAGE 001 


〇 l 000 
01010 
01 020 
01030 
01040 
01 050 
01 060 
01 070 

0108 5000 

01 090 

01100 5000 20 

01110 
011 20 
01130 


* 



普 read 

KANJ 

I ROM 

i nnt display 


并 


(BEOS;KANJIR) 



OPT 

M，NOS 

,F ヒ 253 , N00 , NOG 

9B?0 

CR し F 

EQU 

¢9850 

output CR & LF 

DOBE 

OUT 

EQU 

$D08E 

one character output 

FBFft 

BIOS 

箐 

EDU 

fFBFA 

BIOS textend-indirGct) 


ORG 

$5000 


5000 

START 

EQU 

升 


02 

5004 

箐 

* JIS 

BRA 

KANJ I 



code 

(set by 

BASIC) m 巧铎 


箐 


01140 

5002 


0000 

CODE 

FDB 

0 cr 


01150 





长 



% m ■ .j ： 

\ X ， iy\ \ ^ * 

01 160 





* get 

kan j i 

^ ant 


01170 





簧 




01180 

5004 

30 

SC 

44 

KANJ I 

し EAX 

<RCB f PCR 1oad rcb address 

01190 

5007 

86 

16 



し DA 

#¢16 

bios request KANJIR 

01200 

5009 

A7 

84 



STft 


set request no. 

01210 

500& 

'厂ア 

a 匚 

43 


LEAU 

<DATA, 

PCR set data buf + er 

01220 

50 OE 

EF 

02 



STU 

2,X 


01230 

5010 

EC 

8C 

EF 


LDD 

<CQDE, 

PCR set JIS code 

01240 

5013 

ED 

04 



STD 

4, X 


01 250 

5015 

AD 

9F 

FBFA 


JSR 

[BIOS 〕 

call bios 

01260 





簀 




01270 





* font 

display 


012B0 





普 




01290 

5019 

BD 

9850 


JSR 

CR し F 


01 300 

501C 

CE 

0010 


し DU 

#16 

loop counter 

01310 

50IF 

30 

8C 

2F 


LEAX 

く DATA, 

PCR load font d^ta address 

01320 

5022 

E6 

80 


LOOP 

LDB 

,X + 

font out {16bit) 

01 330 

5024 

SD 

10 

5036 


BSR 

DOTOUT 

left 8 bit 

01340 

5026 

E6 

80 



LDB 



01 350 

5028 

8D 

OC 

5036 


BSR 

DOTOUT 

right 日 bit 

01360 

502 A 

BD 

9B50 


JSR 

CRLF 


01370 

302 D 

33 

5F 



LEAU 

一 1,U 


01 380 

502 F 

1 183 

0000 


CMPU 

#0 

1 b line output ? 

01 390 

5033 

26 

ED 

5022 


BNE 

LOOP 


01 400 

5035 

39 




RTS 




01410 

# 

01420 

* 

01430 

* 


subroutine: dot pattern output 


01440 

5036 

34 

04 


DOTOUT 

PSHS 

B 

save dotpattern 

01450 

5038 

C& 

08 



LDB 

#8 

output 8 bit 

01460 

503 A 

86 

2ft 


D01 

LDA 




01470 

503C 


E4 



LSL 

,S 

bit on ? 


01480 

[■03E 


02 

5042 


DCS 

D02 

print f 

* " 

Ot 4 ^0 

5040 

86 

A5 



LDA 

拌、 

no,prlnt 

* パま”マ择 

01 500 

5042 

BD 

DOBE 


D02 ^ 

JSR 

OUT 


T f ^ / Jh 

01510 

5045 

5A 




DECS 




01520 

5046 

26 

F2 

503 A 


BNE 

DO1 



01530 

5048 

35 

04 



PULS 

B 

drop stack 

top 

01540 

50 夺 A 

39 




RTS 




01550 





簧 





01560 





* worki 

nq arsa 



01570 





箐 





01530 

504 B 


0006 


RCB 

RMB 

6 

only needs 

6 bytes for 

01390 

3051 


0020 


DATA 

RMB 

32 

data bu-f i er 


01600 





长 





01610 



5000 



END 

START 



TOTAL 

ERRORS 

00000——00000 







TOTAL WARNINGS 00000 —一〇〇〇〇〇 


PROGRAM BEGIN ADDR=5000 
PRDBRAM END ADDR=5070 
PROGRAM ENTRY ADDR=5000 


RUN 

JIS 匚 ODE =$4959 





箦长箐菁ザギ ★ 令■★★争长长长 

年… .M 


¥r m ★★食箦菁普♦簧 


督 


貧脅食 * 女 ★_ 

* .* * * * 
责 + 责 f ★ 女■黄 „ 


it 普长★普普餐 

箐 ■ ... 4 . ■，睢 


* 篑簧箐箐*脊簧<箐> 
戈.... ，乂 _ B + 


# ■ 4 (*. 普 _ ■*# 

餐箐甘长脊菁灰*簣箐ゼ 


JIB CODE 

Ready 

HARPC 
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•■WPB 


BIOS : LPCHK ー プリンタ•レデイチェック 


機 


能プリ 



RCB +0 


ンタが正常であるかどうかをチェックします 
X レジスタ— RCB 先頭アドレス 

リクエスト番号 〇-$17 


このリクエストは， RCB 領域として2バイトしか必要としません ■ 

復帰情報| ( RCB +1) :プリンタのステータス （エラー 番号） 

$ 3 2 ( 5 0 ) :プリンタが用紙切れをおこしている. 

$33 (51) :プリンタがビジー状態であるか，エラーを 

おこしている. 


$〇〇( 0) :プリンタは正常である. 


^ 1^] このリクエストでは，まずエラーをチェックし，エラーでない時は， 
プリンタがレディになるまで約2秒待ちます.約2秒経過しても，ビジー状態が 
続く場合には，エラーとします. 

他のプリンタ関係のリクエストは，プリンタのチヱックを行わないので，事則 
にこのリクエストで，プリンタの状態を知る必要があります， 


BIOS : LPOUT ー プリンタ出力 一 




プリンタに対して，文字列を出力します. 
X レジスタ— RCB 先頭アドレス 


RC B + 0 


1 


リクエスト番^7 ° 

——$ 0 E 


出カ データ 

先頭アドレス 



出カ データ バイト数 

0- 





DATA 


出カ データ 



この リク エス ト は， 

RCB 領域としては6 
バイトしか必要としま 
せん. 
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解 説 I プリンタに対して文字列を出力します.このリクエストは単に1ノ< 
イトずつプリンタに送出するだけなので，改行などのコードは出カデータ中に用 
意する必要があります. 

また，出力中に用紙切れなどのエラーが生じても，このリクエストは処置を行 
わず，レディになるのを恃ちます.ただし， Break キーが押された時は，$ D 
6 7 8にジャンプ■して B AS I C の コマンド レベルへ戻ります. 


サンプを] ブリンタをチェックして，文字列を出力します, 

PAGE 00 1 t ■ ) 


01000 




箐 




01010 




斧 PRINTER chec k output message to PRINTER 

01020 




朞 


<BIDSs し PCHK, し POUT 〉 

〇 1030 





DPT 

M,NDS, 

P=255,N00,N0G 

01040 



9BDB 

MESSA0 

EQU 

$9BDB 

output from <X+1) till0 

01050 



FBFA 

BIOS 

EDU 

$FBFA 

BIDS (ex tend-i ndi rect,) 

01060 




* 




01070 

5000 




ORG 

$5000 


01080 



5000 

START 

EQU 

簧 


01090 




脊 




01100 




篑 printer check 


01110 




贅 




01120 

5000 

30 

8C 25 


LEAX 

<LPCHK 

,PCR 1oad rcb address 

01130 

5003 

AD 

9F FBFA 


JSR 

[BIOS] 

printer check 

01140 

5007 

E6 

01 


し DB 

1,X 

error detected ? 

01150 

5009 

27 

15 5020 


BEO 

READY 


01160 

50 0E ； 

30 

8C 44 


LEAX 

く PAPER—1,PCR 

01170 

50 0E 

Cl 

32 


CMPB 

材 50 

paper empty ? i 一一 - , V 

01180 

50 K) 

27 

0A 501C 


BEG! 

ERR 

^ 二 . 

L i ^ ^ t Y% ^SL 

01190 

3012 

30 

8C 55 


LEAX 

く NREADY'i ,PCR 

01200 

5015 

Cl 

33 


CMPB 

#51 

not ready ? 終 

01210 

5017 

27 

03 5010 


BEQ 

ERR 


01220 




簧 




01230 




♦ output message to 

printer 

01240 




篑 




01250 

5019 

30 

8C 66 


LEAX 

<BIOSER-1,PCR not printer error 

01260 

501 C 

BD 

9BDB 

ERR 

JSR 

MESSAG 

error message output 

01270 

501 F 

: .9 



RTS 



01280 

5020 

30 

8C 07 

READY 

LEAX 

く LPOUT 

,PCR get rcb address 

01290 

5023 

AD 

9F FBFA 


JSR 

CEI0S3 

printer output 

01300 

302 フ 

39 



RTS 



01310 




if 




01320 




簧 rcb 

for LPCHK 


01330 




* 

on 1 y 

needs Z 

bytes i or rcb 

01340 

5029 


1700 

し PCHK 

FDB 

$1700 

bios request LPCHK (No - 17) 

01350 








01360 




* rcb 

for し POUT 


01370 




* 

only 

needs 6 

bytes -for rcb 

01380 

502 A 


OEOO 

LPDUT 

FDB 

$0E00 

bios request LPDUT (No.=$0E) 

01390 

502 C 


50^0 


FDB 

DATA 

output data address 

01 400 

502F 


0023 


FDB 

DATAE—DAT A output data length 

0141 0 

5030 


ODOA 

DATA 

FDB 

$0D0A 

output data 

01420 

5032 


6F 


F 匚 C 

* out put message for printer ! ! ! 

01430 

5051 


ODOA 


FDB 

$0D0A 


01440 



5053 

DATAE 

EDU 

* 


01450 








01460 




* error messages 


01470 









01480 

5053 

ODOA 

PAPER 

FDB 

辛 ODOA error 

messages 

01490 

5055 

70 


FCC 

"paper empty 

error !!! * 

01 500 

506 A 

00 


FCB 

0 


01510 

506 B 

ODOA 

NREADY 

FDB 

40D0A 


r：J 1520 

5060 

70 


FCC 

'printer not 

ready !!! J 

01530 

5082 

00 


FCB 

0 


01540 

5083 

ODOA 

BIOSER 

FDB 

$0D0ft 
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01550 

5085 

42 


FCC 

'BIOS error ! ! 

01 560 

5093 

00 


FOB 

0 

01570 

01580 


5000 


END 

START 


TOTAL ERRORS 00000 —一〇〇〇〇〇 
TOTAL WARNINGS 00000—00000 

PROGRAM BEGIN ADDR^ 5000 
PROGRAM END ADDR=5093 
PROBRAH ENTRY ADDR=5O00 

ブリンタ出力 

out. put message i or printer f ! ! 

C R T 出力 

exec 5000 

Ready 

exec 5000 

printer not ready f * ! 

Ready 
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BIOS:HDCOPY 一 C R T スクリーン•イメージコピー ( 1 ) 一 


機 


111 CRT 画面をプリンタに コピーし ます 


パラメータ |このリクエストは， RCB 領域 （6 バイトのみ必要）以外に，2 0 
9 ($ D 1 ) バイトのワークエリアを必要とします. 


RCB + 0 


リクエスト番号 


$ 0 F 


ワークエリア 
_先頭アドレス 
黒色指定バイト 
灰色指定バイト 


X レジスタ— RCB 先頭 

アドレス 


6 5 4 3 210 bit 



ワ ー クエリア 

2 0 9バ 


7 6 5 ；4 3 2：10力 


対応するビットが1の色が，そ 
れぞれの濃淡で印字されます.（黒 
色優先） 


解 


説 CRT 國面をプリンタにコピーします，このコピーでは画面上の1 


ットをフ°リンタの4 


に拡大して印字するため，3レベル（黒灰白）の濃 


淡をつけることができます. F-B A S 1 C の HARDC 1 が利用しています. 

このリクエストは，フリンタの状態チヱック等は 行わず， ブリン タにエラ— 
が生じると，回復するまでループしつづけます. Break キーが押された時には， 
BAS I C のコマンドレべルに制御が移ります.またこのリクエストは一部で F 
I RQ をマスクしています. 


BIOS : SCREEN 一 CRT スクリーン•イメージコピー (2) — 

C R T 画面をプリンタにコピーします. 

灰色指定バイトがない以外は HDCOPY と同様です. 

1 解 説| このコピーは画面上の1ドットとフ°リンタの1ドットを対応させて 
印字しますので，2レベル（黒白）の濃淡がつけられます . FBASICOHA 
R DC 2が利用しています.その他は， HDCOPY を御参照ドさい. 

補足：このリクエストに限って， FM 8との互換性はありません. FM 8 のソフ 
卜を利用する場合などには注意して下さい （F M 8では濃淡の指定はできませ 
ん ）. 
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サンプル 1 

HDCOPY を使用したサニ 

，プルです 

* 

PAGE 

001 ( 


, > 





01000 








01010 




* SCREEN HARD 

COPY 


01020 




* 


(BIOS: 

HDCOPY) 

01000 





OPT 

M ， NOS,NOG ， 

N 叩 ， PAGE = 255 

01040 



FBFA 

BIOS 

E0U 

$FBF A B IOS (e>; tend — i nd i rec t ) 

01050 




箐 




01 060 

5000 




ORG 

¢5000 


01070 



5000 

START 

EQU 

★ 


01 U80 




黄 




01090 

71000 

20 

02 5004 


BRA 

HDCOPY 


01100 




* 




01110 




* shades code 



01120 




簧 




01130 

5002 


EO 

BLACK 

FCB 

-/• i i i 00000 

output #釜簧餐 

01140 

5003 


IE 

GRAY 

FGB 

XOOO 11110 

output - * 

* j 1150 




菁 




01160 




# set 

rcb 



01170 




* 




01130 

5 ゆ」 4 

3ij 

8 匚 13 

HDCOPY 

し EAX 

く RCE 、 F，CR load rcb address 


01190 

5007 

86 

OF 


LDA 

tt$OF 

bios request 

HDCOPY 

01 200 

5009 

(\7 

84 


STA 


set request no* 

01210 

50 OB 

3 こ、 

SC:12 


LEAU 

<WORK, 

PCR set working 

area 

01220 

50 OE 


02 


STU 

q V 

, Ai 



01230 

5010 

EC 

8C EF 


LDD 

<BLACK 

t PCR set shades 

code 

01240 

5013 

ED 

04 


STD 

4 f X 



01241 




* 





01242 




菁 screen hard 

copy 



01243 




簧 





01250 

5015 

AD 

9F FBFft 


JSR 

tBIOSD 

call bi ob 


01260 

5019 

39 



RTS 




01270 




箐 





0128 U 




脊 working area 



01290 









01 300 

501A 


00 Ob 

RCB 

RMB 

6 

only needs 6 

bytes for rcb 

01310 

5020 


0001 

WORK 

RMB 

209 

wording area 

i or bi os 

01 320 









01330 



5000 


END 

START 



TOTAL 

ERRORS 

00000——00000 






TOTAL 

WARNINGS 

00000 --00000 





PROGRAM BEGIN ADDR=5000 






PROGRAM END 

ADDR=50F0 







PROGRAM ENTRY ADDR=5000 


25 



o 




VI 


SI 


<r^ ■: 一 : _ ■: 一 -:" ■：""：- 

00 cz> ■ 二 ■ t=i ■::■ cr< 

i~i - 1 — i1 — i~i™* 

c=3 czn cm cz：i ■=» ■コ *=■ 

: PO :^〇 :^〇 170 1^0 ：^ C 1 

II II I 霧 I 通 II VI I 音 

- <iOr^CJI-i^ 〇 ) r 〇 



color = 0 


SIS II 



slor 

,opvs&e_ ■ 
R£dy 

esc ii 
















BIOS : RESTOR ー シークトラック0— 

fS W ] ディスクに対して，シークトラック〇を実行します. 



復帰情報 （ RCB +1) : エラー 番号 


$ 00 ( 0 ) エラーなし 

$ 0 A (1 0 ) ディスク•ノット • レディ 
$ 0 B (1 ! ) ディスクライトプロテクテッド 
S 0 C (1 2 ) ハ ー ドエラ ー 

$ 0 D (1 3 ) C R C エラー 
$ 0 E (14) Deleted Data Mark 検出 

$ 0 F (15) タイムオ ー バ ー エラ ー 
このうち，このリクエストでは，$ 0 A , $ 0 F のエラーが生じます.それ外 
外は ， DWR I TE , DREAD によって生じるものです. 

^ W \ 指定されたドライブのヘッドをトラック〇へ移動します . （FDC 
に対してリストア コマン ドを送出する.）このとき ディ スクのモーターが停止して 
いた場合には，モーターを動かして安定するまで約2秒間待ったのちにリストア 
動作を行います. 
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BIOS: DREAD-DWRITE ー ディスク 1 セクタ リー ド•ライト _ 

機 能 |ディスクに対して i セクタ分のリード•ライトを行います. 

厂パラメータ|このリクエストは RCB 領域の他に入出カデータエリアとして2 5 
6バイトのメモリ領域を必要とします. 

X レジスタ— RCB 先頭アドレス 

ペリード：$ 〇 A 
[ラィト：$ 0 9 

〇〜39 ($0 0 〜 $27) 

1 — 16 ($0 1 〜 $10) 

表： 0，裏：1 
〇〜3 

DATA I 入出力 k - 1 


復帰情報 I RCB + 1番地にエラー番号がセットされます.（エラー番号につ 
いては RE S T 0 R の項を参照） 

解 説]ディスクに対して1セクタ分 （= 2 5 6バイト）のリード•ライト 
を行います.このリクエストでエラーが生じた場合には，ユーザー側でリトライ 
(再実行）などの処置をしなければなりません.このとき再度 RESTOR を呼 
び出した後に行うと良い場合があります. 

このリクエストではリード•ライトの際， IRQ ， FIRQ をマスクしている 
ので注意して下さい（リード•ライト中は Break キーは効きません）. 


サンプル|指定したセクタを，$ 6 0 0 0〜$ 6 0 FF に取り出します. 


PAGE 001 ( 

t 

) 





01000 



篑 




01010 



* DISK 

READ ^ 

WRITE 


0 i 020 



* 

(BIDS: 

RESTDR, 

DWRITE,DREAD) 

01030 




OPT 

M,NOS,NOG,NDO f PAGE^25S 

01040 

9BDB 


MESSAG 

EDU 

$9BD& 

□utput from (X+I> till C 

01050 

D08E 


DUT 

EQU 

$DOBE 

one character output 

01 060 

FBFA 


BIOS 

EBU 

*FSFA 

b i c ]5 ( eM t end-i nd i r ec t) 

01070 

AC3D 


A16DUT 

EDU 

$AC3D 

output A req in HEX 


デー タエリア 

2 5 6バイト 
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DB54 


E0U 


4DB 54 


RDNG 


F r BFA 
508 F 




6000 
q r-i 

日 D 0071 

9BDB 

DB54 

D08E 

OA 

77 

01 5064 


LDD 

STD 

LEAX 

JSR 

JSH 

J SR 

LOB 

CMF'A 

BNE 

DECB 

STB 

TFR 

JBR 

BCS 

RTS 


ttBUFFER set bu-f f er address 
2, V 

HES4-1,PCR OL^tput messagt? 
MESSAG 
KE YIN 
OUT 

w 

RQND 


Y, X 

[BIOS] 

ERRCJR 


t ： ey i np>ut 
echabac k 

assume bios request DRE : AD 
write ? 

n d , r e quest no * < DREAD > 

bios request DWRITE( ¢09) 

set request no• 

set rcb adiIress 

call b i ns 

i -f error detected 


* subroutine:get number (0, ,255) in Breg 
GETNUM 


>2 

>A 


CLftB 
CLRA 
PSH5 
し DA 


A 

«I0 


save keyin number 
Breq^Brea ^ 1 0 


KEY IN 

箐 


keyinput with wait 



DRG 

¢5000 

)0 

START EQU 

菁 


餐 


00 EE 

LEAY 

R 匚 &,PCR 


* 


* set drive no. 


* 


0D 

0093 

DRIVE 

LEAX 

MES1-1 t 

PCR output message 

9BDB 


JSR 

MESSAG 


62 

506 F 


BSR 

GETNUM 

get number 

03 



CMPB 

#3 

drive no. = 0.-3 

1*-*- 

卜,） 

5004 


BHI 

DRIVE 


/ 


爷 

STB 

7,Y 

set drive no* 



♦ disk 

r 0 sto 广 e 

卜 £ seek 

track 0) 

08 


Iff 

LDA 

#*08 

bios request RESTOR 

A4 



STA 

,Y 

set request no- 
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TFR 

Y,X 

set rcb address 

9F 

FBFA 


JSR 

CBIGS3 

cal1 bios 

70 

508F 


BCS 

ERROR 

i + err or detected 


升 set 


track no . 


BD 0086 

TRACK 

LEAX 

9BDP 


JSR 

47 f 506 F 


BSR 

27 


CMPB 

F3 50 IF 


BHI 

24 

餐 

STB 


* set 

箐 

sector 

3D 0085 

SECTOR 

LEAX 

9BDE 


JSR 

39 50iF 


BSR 

00 


し DA 

TSTB 

E3 50IF 


BE(? 

10 


CMPB 

〇フ 5047 


BLS 

20 


CMPB 

DB 50IF 


BHI 

10 


SUBB 

INCA 

-L.O 

SIDE ： 

STA 

つ L : 

VaiJ 1 

箐 

ST& 


* S (：■：' t 

buff er 


MES2-1 

MESSAG 

GETNUM 

林 39 

TRACK 
4, Y 


PCR output message 


qet number 
trac k no* — 0 

set track no, 


9 


no 


side no 


MES3 - 1,F'CR output message 
MESSAG 

get track no- (0*- 32) 
assume side no - =0 
track no_=0 ? 
redo f ram start 
side 0 ? 

yes t side 0 sector 1-16 
Bide 17 

no,redo from start 
yes,side 1 sector 1 一 16 
side no.=l 

6,Y s&t side no- 

5,V set sector no. 

addr * レ request no. 


GETNUM 

ttO 

TRACK 

#16 

SIDE 

#32 

TRACK ； 

#16 




010 SU 
01 090 

0 11 00 

5000 

01110 

0 t 120 
01130 

GO 00 

01131 

01132 

01133 

01140 

5004 

01 150 

5008 

01160 

500 B 

011 7 0 

SvOD 

01180 

50 OF 

01190 

5011 

01191 

01 192 
01193 
01200 

er — 气 n ， 

J 1 二 . 

01210 

501 5 

01220 

5017 

01 230 

5019 

01240 

501D 

01241 

01242 
01243 



01 250 

HO IF 

01260 

5023 

01 270 

5026 

01280 

502 B 

01 290 

502 A 

01 300 

502C 

01301 


01 302 


01303 


01310 

502E 

01320 

5032 

0 ] 330 

5035 

01340" 

5037 

01350 

5039 

01360 

503 A 

0 137 0 

50 3C 

01380 

503 E 

0 1390 

5040 

01400 

5042 

01410 

5044 

01420 

5046 

01430 

5047 

01440 

5049 


0 I. 441 


01442 


01443 


r-1450 

504 B 

01460 

304E 

0 14 70 

5050 

014 eo 

5054 

01490 

5057 

01500 

S05A 

(:『1510 

5051；) 

01520 

505 F 

i.i 1 530 

5061 

01540 

5063 

015^0 

5064 

0.1360 

^06fc 

0 1570 

30 ち 3 

01580 

306 C 

0 1 590 

S 06 E 

q 1 000 


')161 


01620 


n 1 630 

506 F 

164¢) 

5070 

0 1 6 亡 」0 

3071 

01 660 

5073 


1 J . 1 A 

A 2 CJI 2 


o D D 12 / 6 7 F D 5 o D D 1 2 7 o D DfcD 7 1 f.J 1 20 c 7 7 CD-UDDD 61667 FD^9 F F 4 i 
3 B 8 U 2 E B A lA 2 3B 日 c 2 E 3 B 8 B 5 2 c 2 C2 C4AF- 匚 E3BPB CJ B 2 mE 1 A 2 3n4 3 a 


GN01 




01670 

5075 

3D 



MUL 




01 680 

5076 

EB 

EO 


ADDE ィ 

, S + 

eg^Br eg-t key i 

n number 

016V0 

507 B 

34 

04 


PSHS 

B 



01 700 

507A 

BD 

DBS4 


JSR 

KEYIN 

key i n 


01710 

507 D 

EL" 

04 


F，U し S 

B 



01720 

507F 

8i 

30 


CMPA 

# # 0 

test x 0 _ .• '9' 


01 730 

5081 

25 

OB 

508 E 

BCS 

GN02 



01740 

5083 

81 

39 


CMPA 

林 ， 9 



01 750 

5085 

22 

07 

508E 

BHI 

GN02 



01760 

5087 

BD 

DOSE 


JSR 

□UT 

echo back 


01761 

508ft 

80 

30 


SUBA 


character into 

number 

01762 

508 C ： 

20 

E.) 

5071 

BRft 

GN01 



01763 

508E 

39 


GN02 

RTS 


Br €?q = number 0 , 

, 255 


01770 
01 771 

01772 


簧 error mesBag^ output 


01780 

508 F 

30 

8D 004 B 

ERROR 

LEA 

01 790 

5093 

BD 

9BDB 


JSR 

01 800 

5096 

A6 

21 


LDA 

01810 

5098 

BD 

AC3D 


JSR 

0 i 820 

509 B 

39 



RTS 

01 830 




* 


01831 




* messages 

01832 




鸶 


01840 



ODOA 

CRLF 

EQU 

01850 

509 匚 


ODD A 

riESl 

FDB 

01860 



44 


FCC 

01870 

50A9 


00 


FCB 

01880 

50AA 


ODOA 

MES2 

FDB 

01 890 

50AC 


54 


FCC 

01 900 

50 B 7 


00 


FC：P 

01910 

50 B 8 


ODOA 

MES3 

FDB 

01 920 

50 BA 


53 


FCC 

01930 

50C5 


00 


FCB 

0 1940 

50C6 


ODOA 

MES4 

FDB 

01 950 

5008 


57 


FCC 

01960 

50 DE 


00 


FCB 

01970 

50DF 


ODOA 

ERRMES 

FDB 

01980 

50E1 


07 


FCB 

01990 

30E2 


2A 


FCC 

(J 2000 

50F 1 


00 


FCB 

02010 




普 


0201 1 


* 


蚕 work 

i nq 

02012 




# 


02020 

50F2 


0008 

RGB 

RMB 

02030 



6000 

BUFFER 

EQU 

02040 



5000 


END 


ERRMES-1,PCR if error detected 
MESSAG 

load error code 
error code output 


1,Y 

A160UT 


¢000 A 
CRLF 

DRIVE ND 

0 

CRLF 


O 

CRLF 

'SECTOR NO〆 
0 

CRLF 

f WRITE(w) or READ(r 
0 

CRLF 

¢07 

' 普普 # ERROR no» =< t 


B 

¢6000 

START 


TOTAL 

TOTAL 


ERRORS 00000——00000 
WARNINBS 00000—00000 


PROGRAM BEGIN 
PROGRAM END 
PROGRAM ENTRY 


ADDR- 5000 
ADDR=50F9 
ADDR^ 5000 


i 00 J ， 

110 disk read ?< write 
120 

130 DIM D(15) 

140 PR IMT 11 DISK READ & WRITE" 

150 EXEC &H5000 

160 PRINT 1 ' +0 +1 +2+3 +4 +5 +6+7 +8 +9 +A +B +C +D +E +F CHARACTER 

170 FDR ADDR4H 6000 TO &H60FF STEP 16 


ISO 

PRINT:PRINT 

RIGHT*( M 0-+HEX^(ADDR-^H 6000 > ， 2> ; *、 

一"* 

• 

190 

FOR BYTE-0 

了 015 |6 汾も ^ fLf ^ 二 F U 杓 

森 1^1 

20 。 

D(BYTE)=PEEK(ADDR+BYTE) ”， \ . ^ 

pH!# 

210 

NEXT 

/ n * * I m i 


220 

FOR BYTE=0 

TO15 


230 

PRINT ” ■■ 

;RI6HT$( M 0'*+HEX$ (D(BYTE) ) T 2> ; 


240 

NEXT 



250 

PRINT 

• 

f 


260 

FDR BYTE=0 

TO15 



30 



0U-- 44 

1 (_j —- tJO 

20—^ 4D 
30——00 
40——53 
50' 00 
60—— 56 
70 —一 00 
80——41 
90—00 
AC 卜 …50 
B 0 一一 00 
C 〇 『- 一 44 
D0 —一 00 
E0 — 44 
F0—— 
Ready 


270 IF D.(BYTE><32 DR D(BYTE>=^H7F THEN PRINT 

280 NEXT ^ 

290 NEXT 


RUM 

DISK READ Z< WRITE 

DRIVE NG. =0 
TRACK ND.=1 
SECTOR NO*=4 
WRITE(w) or READ(r) ? r 

+ (:j + 1 +2 +3 +4 .+5 +7 +8 +9 +A +B + C +D +E +F 


ELSE PRINT CHR$<D(BVTE)); 


CHARACTER 
DFfICD … 


MCQPY … 

_ _ 4 _ _ 

SYSDSK … 


VGLCOPY … 

麵 j | ■幽 ■ _ 

_ ■_• ■ ■纛 

» m ■■■■■■« 暑 ■ 

AUTGUTV … 

» s ■ ■ « 

PFDEF … 

B « « « w 

DEMOl … 


DEMQ2 … 

• ■■ ， _ 

■ V ■ « 囑 


--11 孤 

.n. #1 


) tf ) t" )r t0 ,lr %f 

i | I t | i 1 4 1 ■ ■ tmiI ■■•争 |> ■ 
J% /!■ a9w- J— Ji— 

I# J. V# %f, t0 t/ ) J 

，|_通 | _JB 1 : r 琴 ■■ ■■■la-*' 

Ji JJl. #4 'fi /l t /mV 


001020 3 0-4 0- 5070E 0 

n 1J —r «I.F ^—0 -u- _)F u- t/. if. LIT %/. n %F 

_,» « i ^ ^ 糊 ■ ■ ^^_«■■■ ♦ ? || ■ »^■ ii 曹 I ■■纖 

JI- J1 /\ /l. f% Af 0^ JI- kl. tv 


h fa. I r. h ■ u ■■ r l r 11 r , p h. F .■ ri. fcij J. h 0 . 

■ ■ - K - ™ ^ M 

Jf. Jl JJl- dnl n^ii J^v fl- Jit -c- J 91 fl 
ir If <1- vr- kmf. tf J tf k— ) fcj. )- .1- klf 

bmll ■ 一 P j A 1 I | l.^-!!.-*■ I 1 1 ■ f l< t 圓誦画 di ■ ■ _ _ .. 

#% c Afl% >c Jl fl riil Jl. _it 

tr kj —r tf IJ .J- ij 1-- kj kj, If vr. —f- 
t _ ■ I- lu.Hi t i l> I ■ ■ J-iBl I :■■_ 4 | lml 
Jl i-—- BIB ri—- ■1 f— #1 —1^ ./% -IL ■1■ Jl-, 

I ). vf fcj- —r } tj ). tf —r VJ if vf- 

Jwl i> B 1 _ I 'l _ r;L I ■ ■ J I * 首 _*■_ 應 -i i- 4 ； lHill- j. p ■ ■ 

.c- el J—e ai\ fl- n #1 ffll- dt yl f, -f— 

rJ'J _〆 -:>』 ， - r _r _ ノ ， 一 1 ■-!,■- _-L- ^ _i_ -• w ■，■国 

ITfl , J £% fl. Jl Jl- ^1- #1 1 գ *#1 4% #■% 

IJ .If _1J If kj .} k— u- n IF tr 

1-KI*I_ 画 ■ it I I Iv!!? - -. 墨： I 一 r i t ■ | 眷 4 # 國 ■ 一 .！' 1 ：f 

( fm 01 n /w n n .(1 fl tv -l /I n ft /1 /f> 

.IP a_l hj- -J *1= -I# n If -n 4F IT —f- 

I 一 , a 1 ■*_all-<FII! 111 ■■tl - 麵 麵昝 ■ 学 ！ ■«•<< ■■_■«■-! ■嘗 
ff bb _f% Jl c /1 / *i-. rilE 

_%J .^# ■1/ )r Kir -}0 tj .^7 fc—r 
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#1 VI Jl Jr\ yt fL- bn- f%- CH 

IJ- )- %»- If tf -J J n it ) )- I# 4f ). 
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s£%. n rill f #1. fl yl ,,f n tf— Jl #1» d% 

/ VI *■1. -J-- *1^ f 0 KJ- J J. If up 
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/\ f\. n fl fl rl. n. /«- Ifl .n ^1- /i fv /l 
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2 o rf u 子リ 2 o 2 o ?" 士〇 2o 
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/t n fl. tt% c fb c #1 Jf rl- .019 Jl- 
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5 - .) 1- .Jl. I -J- -I Lr „.J J. \f %f IT If 
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Jn -*1« /l /mm _tMJti. JJ. dvt /i fl c fl fl- 

20 2 o 4 05 0 5 o 2 o 2 o 2 o 

4 o 9 o 3 o F o 5 o & o i o 2 c- 
4 o- 5 o 5 n- 4 o- 5 o 4 o 3 o 3 o. 

3 o o O 4 c- 3 o F t:> 5 C* F OFO 
4 o 5 o 4 o 4 o 4CJ4 o 4 c- 4 o 

D OFO 3 o c O 4 O 4 o D o D o 
4 c- 4 o LI c- 4 05 0 4 o 4 -u 4 o 
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BIOS : SUBOUT ー サブシステム • アウトプット — 

ディスプレイ•サブシステムに対して出力を行います. 

X レジスタ— RCB 先頭アドレス 

RCB +0 リクエスト番号 〇-$1〇 

1 

_ _ _ 

2 転送 データ 

3 _先頭アドレス 

車 5 达 7 - 夕長 

5 (1 — 12 8) 



復帰情報| RCB の設定が正しくない（データ長が0，12 9以上など）とき 
は RCB + 1番地に RCB エラー （$01) がセツトされます. 

解 説 |ディスプレイ•サブシステムに対してコマンド•データ等を出力し 
ます.具体的には，サブ CPU に HALT をかけ，共有 RAM にコマンド•デー 
夕を転送， HALT を解除します.転送データの内容についてはサブシステムの 
章を御参照下さい_このりクエストはサブシステムの動作完 f を侍たないので 
サブシステムで生じたエラーについてはユーザーに通知しません.よって R C B 
の設定が正しければ常にエラーは生じません.また，ルーチン内部の一部で FI 
RQ をマスクしています. 
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BIOS : SUBIN ー サブシステム•インプット 



ディスプレイ • サブシステムに対して出入力を行います. 
X レジスタ — RC B 先頭アドレス 


RC B + 0 


1 


3 

4 

5 


7 


リクエスト 1 

r \ - 



■テ ■ / くい，— 

先頭 ア 1 

7 ア 

ドレス 0- 

出カ データ J 

( 1 〜: 

三 

Q 

12 8)' 

データ バツ ： 

.( 0 〜彳 

7 ァ長 

12 8) 


$ 1 


出力 

千—々 卜 


ニ バッファニ: 

1〜128 

(入力用） 

バイト 

〇〜 


12 8 

バイト 


復帰情報|サブシステム側から返されたデータがデータバッファにデ_タバッ 
ファ長だけ転送されます.返されたデータよりデータバッファ長が短かい場合に 
はエラーは 生じずに，データが失われます. 

またサブシステム側でエラーが生じた場合には， RCB + 丨番地にエラー番号 
がセットされます.（エラー番号はサブシステムのそれと同様なので，サブシス 
テムの方を御参照下さい.） 


解 説」サブシステムに対しコマンド，データを出力し，実行結果をサブシ 
ステムから入力します.具体的には S UBOUT と同様の動作の後，サブシステ 
ムがコマンドを実行し終*るのを恃つて H A L T をかけ実行結果を共有 R A M から 
データバッファに転送， HALT を解除します. 

このリクエストも S U BOUT 同様，一部で F I RQ をマスクしています. 

くわしいサブシステムの使用法は，サブシステムの章を御参照下さい. 
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BIOS:INPUT-INPUTC ー サブシステム 1 行入力 一 


機 能 サブシステムから1行入力を行います. 
バラ y 一夕 ] x レジスタ— RCB 先頭アドレス 


RCB + 


4 


リクエスト番号 


〇 


データ 領域 


先頭アドレス 


〇 


$12(1 NPUTC のときは 


$ 13 ) 


出カデ_夕長 


7 


〇 


入カ データバッファ 長 


〇 


DAT A + 0 


出カ データ 


入カデー P 



タノくツフ 

J 



ア 

J 


復帰情報 画面上で変更されたフイールドのうち最上行のフイ ー ルドを入カデ 
一タバッファに転送します.バッファ長が足りなかった場合には （ RCB +1) 
がバッファオーバーエラー （$4 F ) を示します • 


解 説 画面に出カデータを出力した後，キーボードより文字列を入力しま 
す . Return キー （又は八 C , 八. X , C L S ) が押されたら入カデータ バッファに 
変更された フイール ドを上の方から転送します.変更されたフ イール ドが複数あ 
った場合には INPUTC を実行することによって次のフイ ー ルドを取り出す必 
要があります. 

入カデータの形式を示します. 


D A T A + 0 

終了コ ー ド 0 — 

——0 

i 

$ 12 


2 

X 座標 〇- 

——0 

3 

Y 座標 ° — 

- 0 

4 

文字列 


秦 — 

jp* 8 " 

一 n — 4 

kv 1 


文字 



n — 1 | 

n 


_ Return 






〜 2 4 


=(R C B + 4 , 


A Cor A X 2 


5 ) * データ 長 


CL S 
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31 

30 

AD 


30 

33 

EF 

CC 

ED 

CC 

ED 

86 

A7 

CC 

ED 

AD 

25 

EC 

1083 


* 

篑 

簧 


convert string into capitals 

(BIOS:INPUT,INPUTC,OUTPUT) 


FEFA 

BIOS 

# 

START 

* 

箐 put 

□PT 

EDU 

M, NOS, P 
iFBFA 

=255, N00, NOG 

5000 

DRG 

EQU 

$5000 


日 D 01 OE 

prompt 

LEAY 

message 

DATA,PCR input data store area 

8D 0 0A6 


LEAX 

PROMPT, 

F'CR load rcb f or output 

9F FBFA 

-W- 

JSR 

[BIDS] 

output prompt 

8D 0002 

* get 

长 

stri ng 

LEAX 

RCB,P 匚 R 

load rcb address 

8D 0006 


LEAU 

BUFFER» 

PCR bu+ fer -for INPUT 

02 

1107 


BTU 

,LDD 

2, X 

#¢1107 

set field col or = / 0 

C4 


‘ \STD 

,u 

0002 


LDD 

#2 

set data 1ength=2 

04 

12 


STD 
し DA 

4,X 

#¢12 

bios request INPUT 

84 

CONT 

STA 


set request no- 

0028 


LDD 

林 40 

set buffer length 

06 

9F FBFA 


STD 

OBR 

6,X 
[: BIOSD 

input characters 

64 5093 


BCS 

ERROR 

if error detected 

04 


LDD 

4,X 

get data length 

0001 


CMPD 

#1 

input data 1enqth=1? 

20 5057 


BEQ 

INEND 

yes,al1 field end 

C4 


LDB 


get end key t1ag 

1C 5057 


BNE 

INEND 

if not end by return 

40 


PSHS 

U 

save buffer address 

44 


し EAU 

4,U 

skip 4 chr 


05 

04 

07 

匚〇 

AO 

F7 

ODOA 

Al 

40 

13 

CB 


长 


* 


504 C MOVE 


504 ： 


NEXT 


5022 


LDB 

SUBB 

B し S 

LDA 

STA 

DECB 

BRA 

LDD 

STD 

PULS 

LDA 

BRA 


5, X 
#4 

NEXT 

,lj+ 

MOVE 
林 $ODOA 
， Y + + 

U 

#$13 

CONT 


{ end key + lag,$12,;<,y) 
get lnput1ine length 
(1ength< 40) 
skip 4 chr 
if chr end 
transfer 

input1ine ta data area 


add CR ?< し F 

buffer address come bach 
bios request INPUTC 
get riBKt -field 




* 





普 convert stri 

ng i 



* 



8D 

0 OB7 

INEND 

LEAU 

DATA 

C4 


INE01 

LDA 


61 



CMPA 


08 

5069 


BLO 

CAP 

7A 



CMPA 

林 ^ 

04 

5069 


BHI 

CAP 


DAT A,PCR convert t□ capitals 

1oad character 
test 'a'- 


j __ * 


01000 


01010 


01 020 


0 i 030 


01040 


01050 


01060 

5000 

01070 


01 080 


01 090 


0 U 00 


01110 

5000 

01120 

5004 

Oi 130 

5008 

01140 


01150 


01160 


01170 

50 OC 

01180 

5010 

01 190 

5014 

01 200 

5016 

01210 

5019 

01220 

50IB 

01 230 

50IE 

01240 

5020 

01250 

5022 

01260 

55024 

01270 

5027 

01280 

5029 

01290 

5020 

01 300 

502F 

01310 

503 1 

01320 

503 S 

01 330 

5037 

01340 

5039 

01350 

503 B 

01360 

503 D 

01370 


01380 

503F 

01390 


01400 

5041 

0141 0 

5043 

01420 

5045 

01430 

5047 

01440 

5049 

01450 

504A 

01 460 

504 C 

01470 

50 4F 

01480 

3051 

01490 

5053 

01 500 

5055 

01510 


01520 


01530 


01540 

5057 

01550 

505 B 

01560 

5503 D 

01570 

505F 

01 580 

5061 

01 590 

5063 


この リクエスト では常に終了 コー ドを転送するので，すべての フイ ー ル ドを転 
送し終ったかどうかは （ RCB +4, 5) が1かどうかで判断します.1でないと 
きは，さらに I N P U T C により変更フイ ー ルドを取り出す必要があります. 


サンプル I INPUT , INPUTC，OUTPUT を用いたサンプルです • 
入力された文字列を大文字にして出力します. 

PAGE 001 ( , ) 


7664 3 6 036 7 a o c D56 〇 3 6 15 1 ^ 
2E 2 3 3 E C2AA52 CE3 823 A 8 2 8 2 


35 




01600 

3065 

80 

20 


SUBA 


* jr f , # I 1 

if a - z 

0 161 0 

5067 

A フ 

C4 


STA 

,u 


01620 

Tj069 

""W sm ^ 

. 二 ■. 二， 

41 

CAP 

LEAU 

l f U 


01 630 

506 B 

34 

40 


PSHS 

U 

get Yreq-Ureq 

01640 

5060 

IF 

20 ^ 

■ i/".，} 1 し 

|TFR 

Y.D 

十 \o^ Arv , 

01650 

506 F 

A3 

El - 

4 H 

^SUBD 

j s ++‘.！ c i 

f^r 1 3 1 い卜 

0166 り 

507 1 

26 

E8 505 B 


BNE 

’I NE01 

i i not end 

01670 




箦 




01680 




* put i 

converted strings 

01690 




# 




01 フ〇〇 

5073 

33 

SD 0054 

OUTPUT 

LEAU 

□UTNES, 

PCR output message 

01710 

5077 

CC 

0017 


LDD 

林， OU 丁 ME 

-0UTI1ES 

01720 

507A 

8D 

0A 5096 


BSR 

□UT01 


01730 

507C 

— -r 

» 

8D 0092 


LEAU 

DATA,PCR 10 ad data top addr. 

01740 

5080 

34 

40 


PSHS 

U 

get Yreg-Ureg 

01750 

508：^ 

IF 

20 


TFR 

Y f D 


01760 

5084 

A3 

El 


SUBD 

,S++ 


017"0 

5086 

HD 

04 

0UT01 

STD 

4, X 

set data length 

01780 

50B3 

EF 

02 


STU 

2, X 

set data top address 

01790 

508 A 

36 

14 


し DA 

#$14 

bios request OUTPUT 

01800 

508C 

A7 

84 


STfi 

,x 

set request no. 

01810 

50BE 

AD 

?F FBFA 


JSR 

[BIOS] 

output chatacter3 

01820 

5092 
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RTS 



01830 




簧 




01840 




* error message output 

01850 




菁 




01 860 

5093 

33 

8D 0005 

ERROR 

LEAU 

ERRMES, 

PCR 

01870 

5097 

CC 

0012 


LDD 

林 ， ERRME 

一 ERRMES 

018B0 

509A 

20 

EA 5086 


BRA 

□UT01 


01390 

509 C 


0D0A 

ERRMES 

FDD 

$0D0A 


01900 

509E 


20 


FC 匚 

# BIOS 

ERROR !!! ‘ 

01910 



50AE 

.ERRME 

EQU 

# 


01 920 




箐 




01930 




* messages 



01940 


p Jr 1 fc 'W 






01950 

50AE 


f"l 400 

PROMPT 

FDB 

¢1400 

bios request. OUTPUT 

01960 

: SOB 。 


150 B4 


FDB 

PROMP1 


01970 

SOB 2 


0017 


FDB 

.PR0HP-PR0MP1 

01980 

5 0B 4 


0D0 A 

PRQMPi 

FDB 

¢000 A 


01990 

50B6 


20 


FCC 

please input ^ —— 一一 ’ 

02000 



50CB 

- PROMP 

EQU 

* 


02010 




鸶 




02020 

50CB 


0D0A 

0UTMES 

FDB 

$ODOA 


02030 

50CD 


20 


FCC 

# input 

char ac t er s ===== f 

02040 



50E2 

*0UTME 

EQU 

普 


02050 




箐 




02060 




# work 

i ng ar ea 


02070 

50E2 


0008 

RGB 

RMB 

B 

rcb ( 8 bytes full use) 

02080 

50EA 


0028 

BUFFER 

RMB 

40 

buffer far bios 

02090 



5112 

DATA 

EQU 

箐 

data store area top addr 

02100 



5000 


END 

START 



TOTAL ERRORS 00000 一一 00000 
TOTAL WARNINGS 00000 —一〇〇〇〇〇 


PROGRAM BEGIN 
PROGRAM END 
PROGRAM ENTRY 


ADDR=500G 
ADDR=5111 
ADDR=5000 


e；:ec ち H 3000 

pi ease input - —This is a pen. 

input characters - = -THIS IS A PEN. 

Ready 

exec ? 415000 

p1 ease input —— 一一一一一 str i ng over 4 0 characters — > b i os error 
BIOS ERROR 1 !! 

Ready 

exec 


p 1 ease input -- -Shuwa system trading c□, ,itd. 

input characters =-=SHUWA SYSTEM TRADING 匚 □.,LTD. 


Ready 
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BIOS:OUTPUT ー サブシステム•キャラクタデータ出力 一 


療 W ] 指定された文字列を画面に出力します. 

パラメ — 夕 X レジスタ —R C B 先頭アドレス 


RC B + 0 

1 


4 

5 


リクエスト番号 。— 

——$14 


出カデータ 

先頭アドレス 



出カデータ長 

CH ~ ■ 






出カデータ 


復帰情報 （ RCB +1) :エラー番号（サブシステムの章を參照) 


解 説]サブシステムにコマンドを送ることによって文字列を画面に出力し 
ます.出カデータ長が12 4より大きいときは，ルーチンが分割してサブシステ 
ムに転送します. 


サンプル I N P U T の項を御参照下さい. 


37 






BIOS : KEYIN ー キーボード 1 文字入力 一 



サブシステムからキーボードの情報をうけとります. 
X レジスタ— RCB 先頭アドレス 


RCB 



1 


4 

5 


リクエスト番号 


〇 


キー入カデータ 

フア先頭アドレス 


ソ 


〇 


$ 1 


キー入カバッファは 


DATA 






イト必要です 



このリクエストは RCB 領域として6バイトしか使用しないので，キー入カデ 
ータバッファとして RCB +6， RCB +7 の2バイトの使用も可能です. 

( DATA +0) :文字コード 
( DATA + f ) :キー入カフラグ 

0 :入力な 
1:入力あり 

また， RCB +4， 5番地にはデータバッファの長さがセットされるので常に 

( RCB +4， 5) は2となります. 



キー入力の状態を調べます.しかし，サブシステムがキーの先行入 
力を可能にしている場合には先行入力されたものが返されるので注意して下さい. 


サンプル 入力したキーのキーコードを表示します. 


PAGE 

001 ( 

9 

) 




〇 1000 



M- 




01010 



* KEY 

INPUT 

& DISPLAY 

KEY CODE 

01020 



* 


(BinS;K：EYIN ) 

01030 




DPT 

M,N0S,P= 

： 255,N00 ? N0S 

01040 


?BDE K 

MESSAG 

EQU 

$9BDB 

output from (X +1> till 

01050 


FBFA 

BIOS 

EDU 

*FBFfi 

bios (extend-indirect) 

0 ] 060 


AC3D 

A16DUT 

EGU 

$AC3D 

output A reg in HEX 

01070 


0678 

ABORTT 

EQU 

$D67S 

BASIC Abort test 

01080 


9B 50 

CRLF 

EDU 

¢9850 

CR LF 

01090 



箐 




0i 100 

5000 



□RB 

¢5000 


011 10 







01120 


5000 

START 

EDU 

箐 


01130 

5000 BD 

9B50 


JSR 

CRLF 


01140 



箐 
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5003 

5007 

5009 

5000 
50 OF 
5013 
5015 
5017 


5019 34 
501B 30 
50IF BD 
5022 35 
5024 BD 
5027 BD 
502A 20 


502C 

503A 


503 B 
5041 

ERRORS O 
WARNINGS 


01150 
01160 
011 70 
01180 
01 190 
01 200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01 300 
01310 
01 320 
0 i 330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
TOTAL 
TOTAL 


^ qet 
* 


key code 


8D 

0034 

NEXT 

LEAX 

RGB,PCR 

15 



し DA 

#$15 

bios request KEY IN 

84 



ST A 



06 



し EAU 

6, X 

get buffer address R 

02 



STU 

2, X 

set buffer addr bbs 

9F 

FBFA 

LOOP 

JSR 

CBIOSD 

call bios 

41 



し D A 

1,U 

get key in f J. aq 

FB 

50 OF 


BEQ 

LOOP 

i -f no keyin 

C4 



LDA 

,u 

get keyeode 



* output key 

code in 

HEX 

02 



PSHS 

A 


8D 

00 OC 


LEAX 

MES1-1 f 

PCR message output 

9BDB 


JSR 

MESSAG 


02 



PULS 

A 


AC 3D 


JSR 

A160UT 

output keycode? in HEX 

0678 


JSR 

ABORTT 

BREAK k ey test 

D7 

5003 


BRA 

NEXT 




长 







贅 

message 






菁 






20 

MES1 FCC 

# 

Key 

code 

=$' output message 

00 

贅 

FCB 

0 





普 

working 

area 





箐 






0006 

RGB RMB 

6 


only 

needs 6 bytes for rcb 

0002 


RMB 

2 


for 

bu-f f er 

5000 


END 

START 




000 — 00000 
00 00 n ——0000 T) 


PROGRAM BEGIN ADDR^SOOO 
PROGRAM END ADDR^ 5042 
PROGRAM ENTRY ADDR=5000 


0 j<ec 5000 


<ey 

code 


Key 

code 


Key 

code 


Key 

code 

=S2D 

Key 

code 

=$37 

<ey 

code 

=¢38 

Key 

code 

-¢39 

Key 

code 

= $3D 

Key 

code 

- $34 

Key 

code 

= $35 

<ey 

code 

=¢36 

Key 

code 


Key 

code 

=¢31 

Key 

code 

= $32 

Key 

code 

= $33 

<ey 

code 

: $0D 

Key 

code 

= $30 

Key 

code 

=S2E 

Key 

code 

= $20 





Abort 

Ready 


0 67 3 F D 6 7 6 
3 8 A 3EA A 2 A 
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2. Display Sub System 



2 — 1 Display Sub System の概略 

FM 7 は 2 つの CPU (正確には，キーボート コントロール 用4ビットワンチ 
ップ マイコン MB 8 8 4 01をふくんで3つ）をもっています.このことにより 
メイン C PU は演算に，サブ C PU はキーボード管理と画面表示に専念できるよ 
うに設計されています. 

メイン CPU が画面表示の必要を生じた時には，共有 RAM (メイン CPU の 
$ FC 80〜$ FCFF ， サブ CPU の $D 3 8 0 〜$ D 3 FF ) を介して，デ 

ィスプレイサブシステムと称するサブ C P U にコマンドを送り表示を行います. 

一方サブ CPU の側では，共有 RAM にセットされるコマンドを逐次実行し， 
データをメイン CPU に返す必要のある場合は，同じく共有 RAM を通してメイ 
ン C PU にデータを返します. 

このように，ディスプレイサブシステム（サブ CPU ) は一種のインテリジヱ 
ントグラフィック端末のような存在であるわけです. 

メイン CPU とサブ CPU の間でのデータのやりとりは， HALT , BUSY 
などのインタフヱース信号線を操作することによって行われますが，ユーザーは 
BIOS に用意されている S UB OUT - SUBIN のリクエストを使用するこ, 
とによリ，各種信号線の操作を B I 0 S にまかせ，信号線の操作を意識せずにサ 
ブ C P U とデータのやりとリを行うことができます. 

この BI 0 S を使用した使用法については， BI 0 S の項及び各コマンドのサ 
ンプル等を御参照下さい. 

もう 一- ^の使用法として，直接信号線を操作してサブ C PU とやりとりを行う 
方法があります. 

通常，共有 RAM はサブ C PU のアドレスバスに接続されていて，メイン CP 
U からはアクセスできません.そこでまず，サブ CPU を停止させて共有 RAM 
をメイン CPU にあけ渡させ，共有 RAM にコマンドをセットします.コマンド 
をセットし終りしだい，サブ CPU の停止を解除し，サブ CPU にコマンドを実 
行させます. 

くわしい使用法は，図とサンプルプログラムを御参照下さい， 

コンソールの機能.フィ ー ルドの概念•アトリビュート文字などについては， 
「ユーザーズマニュアル • システム仕様」を御参照下さい. 
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yes 


END 



yes 



^ no 

i R Q,F ! 

R Q マスク 



サブ C P U HALT 



く 



no 


サブ C P u 停止解除 ^ 




サブ C P l ) • H A L T 解除 



l R Q f F 1 

R Q 

マスク解除 




(END ) 


サブ C P u 停止解除の後すぐ 
にサブ C P I !を停止する場合は、 
Dilay をかけて下さい. 

(少なくとも B 丨 0 S 内では、こ 
の処理が行われています）. 



サブ C P U を直接 （ BIOS を使わずに）動作させます 


PAGE 001 


〇 1000 
01010 
n ] 〇 ' ^〇 

リ 1 リ oU 
01040 
01 050 
01 060 
01070 

01 OSV 
010<:?0 
01100 
0 1110 


500(: 




SUBSYSTEM DIRECT CONTROL 


9BDB 

AC3D 


MESSAG 

A160UT 


5000 


□RT 

EQU 

EQU 

ORG 

EQU 


START 
♦ subcpu halt 

簧 


01120 

5000 

3D 

52 

5054 


BSR 

0 U 30 

5002 

30 

3D 

007 C 


LEAX 

01140 

5006 

1OSE 

FC80 


LDY 

01150 

500 A 

E6 

8D 

0073 


LDB 

011 60 

500 E 

A6 

80 


LOOP 

LDA 

01 170 

5010 

A7 

AO 



STA 

01180 

501：? 

5A 




DECB 

01190 

5013 

26 

F9 

50 OE 


BNE 

01 200 





■M' 


01210 





^ subcpu ha 

01220 








NOB, N00 ,PA6E=255 

output -from < X +1)till 
output A reg in HEX 


H t N05 

$9BDB 

$AC3D 

¢5000 

箐 


cammand set 

HALT subCPU HALT 

DATA,PCR 

#$FC80 

LENGTH,PCR 

f X+ transfer to shared 

， Y 十 

LOOP 


RAM 


reset 


wait a moment 
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01230 
01240 
01250 
01 260 
01270 
01 280 
■J1 

01 300 
( ： )131. 0 
01 320 
01330 
01340 
0 L 350 
01360 
01370 
01380 
CM 390 
01400 
0 1410 
01420 
01430 
01440 
01450 
01460 
01 470 
01480 
01490 

01 500 
01510 
01 520 
01530 
01540 
01 550 
01 560 
01 570 
01580 
01 590 
01600 
0161 0 
01620 
01 6Z0 
01640 
0 I 650 


5015 

8D 

53 

506 A 

BSR 

HRESET 

subCPU 

HALT 

reset 





* if HALT a 包 

boor as 

HRESET, 

wait 

a moment ! 

5017 

B6 

18 


LDA 

#24 

dil ay 

about 

50 micro sec 

50 3 9 

4A 



D1LAY DECA 





501 pr 

26 

FD 

5019 

BNE 

DILAY 





501C 
501 E 
f.021 
5023 
502 u 
5027 
5029 
502 P 
502 F 
5032 
5034 
5037 


8D 
B6 
81) 
巳 D 

34 

27 

ini 

)4 

30 

BD 

35 
BD 
39 


36 5054 

FC80 

52 5075 

45 506A 

7F 

OE 5037 
02 

SD 0(j08 

9BDB 

02 

AC3L) 


*■ sLsbrpu h a I t 
* 

BSR 

LDA 

BSR 

BSR 

ANDA 

BEQ 

PSHS 

し EAX 

JSK 

PULS 

JSR 

NOERF ： RTS 


を read error code 

HALT subCPU HALT 
$FC 80 get status 
REDYRD not command set 
HRESET subCPU HALT reset 
#S7F get error no. 
NOERR 

A error detected 

ERRMES—1,PCR 
MESSAG 
A 

A160U7 output prror no. 


5038 
503 A 
5053 


ODOA 

2A 

00 


箐 error message 
箐 

ERRMES FDB SODOA 

FCC '*** Subsystem Error NO,' 

FCB 0 

箐 

菁 subroutine=SUBCPU HALT 


5054 

34 

02 


HALT 

PSHS 

A 



5056 

B6> 

FD05 


BUSY 

し DA 

壬 FD03 



5059 

2B 

FB 

5056 


BMI 

BUSY 

wait 

Until ready 

505B 

1 A 

50 



DRC 匚 

赫 $50 

IRQ, 

FIRD MASK 

505D 

Sir 

80 



LDA 

#¢80 



505 F 

B7 

FD05 



5TA 

$FD05 

HALT 

sub 匚 PL! 





* 


wait 

ac knowl©dqement 

5062 

B6 

FD05 


READY 

LDA 

$FD0_5 



5065 

2A 

FB 

5062 


BPL 

READY 

wait 

until BUSVf ： 

506 フ 

35 

02 



PULS 

A 



5069 

39 




RTS 

Pul ^ 

1 ^ w* 

ft メ 

/ \ 


set 


01660 

506 A 

34 

〇つ 

-*^1 

HRESET PSHS 

01670 

506C 

4F 


CLRA 

01680 

5061) 

B7 

FD05 

BTA 

01690 

5070 

1C 

AF 

ANDCC 

01 700 

5072 

'rr et 
-iwJ 

02 

PULS 

0 1710 
01720 
01730 
01 740 
01750 

5074 

39 


RTS 

脣 

爷 subroutine 

菁 if not b& 

* 

01760 

5075 

34 

02 

REDYRD PSHS 

01770 

5077 

B6 

F 匚 80 

LDA 

01780 

507A 

Bfi 

SO 

ORA 

01790 

507C 

B7 

FC80 

BTA 

01800 

01810 

01820 

01830 

507F 

35 

82 

PULS 

* 

* subsystem 

长 

01840 

5081 


13 

LENGTH FCB 

01850 

5082 


0000 

DATA FDB 

01860 

5084 


19 

FCB 

01870 

5035 


05 

FCB 

01880 

5086 


on 

FCB 

01890 

5087 


00 

FCB 

01900 

50 日 8 


06 

FCB 

01910 

5089 


06 

FCB 

01920 

508A 


0064 

FDB 

01930 

508C 


0032 

FDB 

01940 

508E 


06 

FCB 

01 Vt>0 
01760 

5USK 


5095 

S TH FCC 

.STR EQU 


* subroutine:SUBCPU HALT RESET 

* 

HRESET PSHS A 


*FD05 

#$AF 

A 


s Lib CPU halt reset 
IRQ,FIRQ reset 


set ready request 


eady request 


ft 

匚 BO 
#¢80 
$FC80 
A, PC 

command 


.DATA - DATA 

(し . 

¢19 [ レ 

cr 

J 

0 

0 

6 

6y 

1 00 
50 

• STR -STR 

' 卜个卜 -/ 「 

* 


MSB an 
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01970 5095 .DATA EDU 

019 BO 5000 END 

TOTAL ERRORS 00000—000 00 
10'\FiL WARN INGS 0(:1000——00000 


簧 

START 


PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=5094 
PROGRAM ENTRY ADDR=5000 


exec &H5000 

Ready 
hardc 2 


FM-7 ! 
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く共有 RAM のフォ~マット〉 

サブ C PU とメイン C PU の情報交換の場である共有 RAM のフォーマットに 
ついて述べます. 


アドレス （ > 内はサブ 

$ FC 8 0 ($ D 3 8 0 ) 

1 ( 1 ) 

2 ( 2 ) 

3 ( 3) 


$ FC F F ($ D 3 FF ) 



• READY R EQ ($ FC 8 0 bit 7 ) 

サブ C PU をエラーコード読み取りなどのために HALT し，新しくコマンド 
を設定しない場合に，1にする必要があります.このことにより，サブ CPU は 
コマンドを実行せず， Ready の状態になります. 

• ERROR CODE ($ FC 8 0 bit 0〜 6) 

コマンド実行中にエラーが生じた時，エラーコードがセットされます.正常に 

実行を終了したときには0がセットされます. 

•データ継続フラグ （$ FC 8 1 bit 7) 

コマンドを送るときに，それに付嵐するデータを 一 '度に送りきれない場合は， 
このフラグを1にしてコマンドを設定します.これによりサブシステムはまだデ 
—夕が続くことを知り，次のデータをまちます.残りのデータはコマンド CON 
T により転送しますが，データのフォーマットについては各コマンドを参照して 
下さい. 

またサブ C PU からデータが返される時にも一度に送りきれない場合は，この 
フラグが1になっているので，残りをコマンド CONT により要求します. 

• STATUS 

サブシステム側から，メイン C PU に対して割り込みの必要が生じた場合は，そ 
の原因のフラグを ON にして，メイン C PU に F I RQ をかけます.このときメ 
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イン C P U はステータスを調べ，それぞれに応じた処理を行う必要があります. 

bit 6 : 0時割り込み 

bit 5 : Interval Timer M り込み 

bit 4 : Timer 割り込み 

bit 0 ~ 3 : PF キー割り込み， PF キーコード 1 〜 10 ($ OA ) 

•COMMAND 

サブ CPU に命令の種類を指定するバイトです.これについては，サブシステ 
ムコマンドー覧表を御参照下さい， 

サブ C PU を HALT したにもかかわらず，コマンドを設定して新しい動作を 
させる必要のない時は ， READY REQ を0 N にしなければなりません. 

• data 

サブシステム • コマン ドに付随するパラメータやデータ等を入れます.この部 
分のフォーマットはコマンドごとに異なるので，各コマンドの解説を御参照下さ 

い 
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1)UT 
GET 
GETC 
GC B LK 1 
PCBLK 1 
GC B LK 2 
PCBLK 2 
G B A D R 
TAB S ET 
CNSCTL 
ERAS E 2 


コ ン ソール 初期化 

画面クリア（文字色指定なし） 
文字列表示 
文字列表示 • 入力 
GET の未転送分を転送 
枠内文字コード読み取り 
枠内文字コード表示 
枠内文字コード及び厲性読み取り 
枠内文字コード及び属性表示 

パ、ツ フアアドレス言売み取り 

TAB 位置設定 

コンソ ー ル機能設定 

画面クリア（文字色指定あり） 





〇 

〇 

〇 

〇 

〇 

〇 

x 

〇 

x 

〇 

x 

〇 


(続く） 

注 ） B I 0 S の項は ， B I OS の SUB OUT で使用することができるか否かを示 
してあります. 〇： SUBOUT ， SUBIN どちらでも可 

x : SUB IN のみ可 


18 
19 
1 A 


LINE 直線又は四角の表示 

CHAIN 連続直線表示 

POINT 点表示 

PAINT ペイント 
SYMBOL 文字列表示（大きさ•角度付き) 
CCOLOR 枠内の色を変更 
GGBLK 1枠内ドット読み取り 
PGBLK 1枠内ドット表示 
GGBLK 2 枠内ドット読み取り（色付き） 
PGBLK 2 枠内ドット表示（色付き） 
GCURS 座標読み取り 

CLINE 文字による直線乂は四角の表示 



0 C 
0 D 



コード 

16進 


ンドー覧表 


サブシステム • 


I 


N 


Ti 


E 

S 

A 

R 

E 
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サブシステム.コマンドー覧表 


コ: ー ド 

16進 

コマンド名 1 

内 容 

BIOS 

2 9 

INKEY 

キーコード 読み取り 

X 

2 A 

DE F P F ; 

P F キーに 文字列を定義 


2 B 

G E T P F 

P F キー 定義文字列読み取り 

X 

2 C 1 

I NTCTL 

P F キー 割り込み選択 

O 

3 D 

SETIME 

タイマセット 

■ 

3 E 

GETIME 

タイマ読み取り 

X 

3 F 

TEST 

メンテナンスコマンド 

氺氺 


CONT 

-一1■- 4* 一*、け — 私 一* ^ 

未紅达 T ー タ転达 . 

氺 


* :このコマンドを使用する前のコマンドによる, 
本*: メンテナンスコマンドの用途による. 


サブシステム • エラ*-コー トー覧表 


エラー コード （ 16 進） 


3 C ' 

I N I T コマンド•パラメータエラー 


コンソール座標エラー 

3 E 

オーダーエラー 

3 F 

グラフィック座標エラー 

4 0 

ファンク シヨ ンコ ー ドエラ ー 

41 

座標数エラー 

4 2 

文字数 エラー 

4 3 

色数エラー 

4 4 

P F # 号 エラー 

4 5 1 

コマンド* ハ。 ラメータエラー 

4 6 

； コマンドコードヱラー 


注）このエラーコードは B I 0 S 経山で使用した時には，そのまま BIOS のェ 
ラー コードと なります. 
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# 














才 ー ダ—シ ー ケンス ー 覧表 

PUT • GET コマンド時におけるオーダーの一覧表です.この表に出ていな 
い$ 0 0〜$1 F までのコードは全て動作しません. 


オーダー名 

コード丨コード 2 コード 3 

機 能 1 

E L 

5 

5 0 5 

フイールド終りまでの 

文字を消去 

BEL 

<i 

; 0 7 

ベルをならします | 

B S 


5 0 8 

バッファアドレスを1 
つ戻す 

HT 

$ 0 9 

TAB 動作 

L F 

$ 0 A 

ラインフイ ー ルド 

HOME 

$ 0 B 

ホーム 動作 

EA 

$ 0 C 

画面クリァ i 

CR 

SOD 1 

復帰動作 1 

S F 

$11 ァトリビ-卜 

フィ ー ルド定義 i 

S B A 

<1 

512 X Y 

バッファアドレス香旨定 

RC 

c 

f 13 文字数コード 

指定数同一文字表示| 

— > 

q 

f 1 C 

カーソル右移動 1 

< — 

C 

M D 

カーソル左移動 | 

个 

< 

口 E 

カーソル上移動 


c 

f 1 F 

力ーソル下移動 1 

Lock Keyboard 

c 

K 

U B $23 

キー入力禁止 

Unlock Keyboard 

$ 1 B $22 

キー入力禁止解除 

Erase Key buffer 

< 

51 B $39 

キーバッファ 消去 

Set Buffer Mode 

$ 1 B $67 

キー先行入力可 | 

Set Unbuffer Mode 

$ 1 B $68 

キー先行入力禁止 


注）例えば ， B A S I C で 

PRINT CHR $ (2 7〉+ クン 
とすれば，先行入力が可能になります. 
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補色 



フアンクシ 





SET 


PRESET 


衍定色の 



卜を背® 


OR 


AND 


XOR 


NOT 







力色と画面色の OR 


力色と画面色の AND をと 


力色と画面色の XOR をと 


の補色 



卜文字 


■■■■HI 



CL 文字色（カラ 


ド） 


反転フラグ （ 1のとき文字を反転表示) 


非保護 


”保謨 


M 変更フラグ 


フイ ー ルド先頭を示す 


サブシステム内で設定されます. 
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2 — 2 各コマンド解説 

ここでは，サブシステムのコマンドを，用途別に分けて解説します. 

IF 1 名コマンドの機能を示します. 

パラメ -71 各 コマンドを 実行するに 当って， 設定すべきパラメータを示します. 
ただし，ここで示すのはサブシステム コマンド としてのパラメータだけで ， B I 
0 S 経由でサブシステムを呼び出すときの， BI 0 S の コマンド やパラメータに 
関しては触れませんので， B I 0 S の各リクエストの解説を御参照下さい. 

復帰情報 1各コマンドを実行した後に返される情報を示します.ただし，この 
復帰情報はサブシステムのコマンド実行が完金に終了しないと得られないので， 

BI 0 S の SUBOUT を使用した場合には，エラー番号も含めて情報は返され 

ません. 

irs 説 I 各コマンドについて注意事項，詳しい解説，予備知識等を示します. 


サンプル 丨いくつかのコマンドについてサンプルプログラムを付けています. 
サンプルプログラムはすべて BIOS を経由してサブシステムコマンドを実行す 
る形をとっています. 
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SUB ： I N I T ー コンソール初期化一 


機 

能 


〇 倉 

ハフ 〆 ■ 

琴々 


i 

コンソール機能の設定と初斯化を行う. 


0 

$00 

1 

$00 

2 

$01” 

3 

BC — 

4 

NC 一 

5 

P NL 一 

6 

SL ^— 

7 

NS °— 

8 ； 

FD — 

9 

ERS --- 

A 

GR 


() 内はリセット 時のパラメータ 

コマンドコード 

背景色カラー コード 〇〜7 (0) 

桁数 8 0又は4 0 ( 8 0 ) 

行数 2 5又は2 0 ( 2 5 ) 

スクロール 開始行 （0) 

スクロ ー ル行数 （25) 

ファンクションキー表示 0 :表示しない. （0) 
初期設定後の画面消去 0 :非消去 （ 1 ) 

単色（グリーン）表示 0 :単色表示しない. （0) 


注） FD キ〇のときは，最後の2行をスクロール範囲に指定してはならない. 


復帰情報 

0 E 一ーエラーコード 

エラーが発生した時は，リセット時と同じ設定となります. 


サンプル 

各 パラメ 

一夕を CR で区切 

つて入力して下さい.指定の通り ! 

化します. 






FAGE 001 { 






01000 


* 




01010 


* SUBSYSTEM INIT 


01020 


* 




01000 



DPT 

m , nos t 

NDG f N00 ,PAGE=255 

01040 

9BDB 

MES3AG 

EQU 

^9BDB 

output f r om C X +1> till 0 

01050 

D03E 

OUT 

EQU 

M)08E 

one character output 

01060 

FBFA 

BIDS 

EQU 

$FBFA 

B IOS ( ex t end^indi r ec t ) 

01070 

AC3D 

A160UT 

EQU 

SAC3D 

output A reg in HEX 

01080 

DB54 

KEVIN 

EDU 

$DB54 

k©yinput with wait 

01090 


* 




01100 5000 



ORG 

¢5000 


01110 

3000 

START 

EDU 



01120 


升 
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0 1130 
01131 
01132 
01133 
01140 
01150 
01160 
01170 
011 SO 
01 181 
01182 
01183 
01190 
01 200 
012 i 0 
01220 
01230 
01240 
01250 
01^60 
01270 
01 280 
01290 
01 300 
0 1310 
01320 

j j - 1 ** 

リ 1 

0 1340 
01341 

01342 
01343 
1 350 
01360 

0 3 ス 70 

01 380 
01390 
01 400 
01405 
0 J 4 i 0 
01 420 
01430 
01440 
rn 4 S 0 

o i 

01470 
01480 
01 490 
01 500 
0 d 0 
01520 

015^0 

01540 
01541 
01542 
01543 
01 550 
0156U 
01570 
01 580 
01 590 
01 600 
0161 C> 
01611 
016 i 2 
01613 
01 620 
01630 
01640 
01650 
01 660 
01 670 
01680 
0 1690 
〇 1700 


f, 000 31 an 0 OF 1 INIT LEAy SUBCDM,PCR 10 acl Bubsys-com. addr 

箐 

* set back color 


5004 

30 

BD 00A9 


LEAX 

MESi-1 

,F'CR output message 

5008 

BD 

9BDB 



JSR 

HESSAG 


50 OB 

17 

0084 

5092 


し ESR 

6ETNUM 

get number 

50 OE 

C4 

07 



ANDB 

材 7 

fadk col ar=O a * 7 ，: 

5010 

F£7 

23 


M. 

STB 

3,Y 

set back color 





^ set 

width 



5012 

30 

8D 00 AA 

WIDTH 

LEAX 

MES2-1 

,PCR output message 

5016 

BD 

9BDB 



JSR 

MEBSAG 


5019 

8D 

77 

5092 


BSR 

GETNUM 

get number _ 0 

501 B 

Cl 

50 



CMPB 

#80 

x =80 or 40 

50ID 

つ " 7 

04 

5023 


BED 

SETX 


501F 

Cl 

28 



CMPB 

#40 


5021 

26 

EF 

5012 


BNE 

WIDTH 


vJ M -L O 

P"/ 

24 


SETX 

STB 

4 T Y 

set width >; 

5025 

S6 

2C 



LDA 

[ ， 

output , 

5027 

BD 

D08E 



JSR 

OUT 


502A 

8D 

66 

5092 


巳 SR 

6ETNUM 

get number 

50 2C 

Cl 

19 



CMPB 

林 25 

y=25 or 20 

502E 

フフ 

04 

5034 


BEQ 

SETY 


5030 

Cl 

14 



CMPB 

#20 


5032 

26 

DE 

5012 


BNE 

WIDTH 


5034 

E7 

25 


SEXY 

STB 

5,V 

set width y 


箦 

+ set console parameter 
¥： 


5036 

30 

8D 008 F 

CONS 

LEAX 

MEB3-1, 

,PCR output message 

50 3A 

BD 

9BDB 



JSR 

MESSAG 


303 D 

BD 

53 

3092 


BSR 

GETNUM 

get number 

503 F 

El 

25 



CMPB 

5, Y 


504 1 

24 

F3 

5036 


BUS 

CONS 

i -f start line > width 

5043 

E7 

26 



STB 

6,Y 

set st ar t _1 i ne 





箐 tet 

n し mi- of 

BcrolI 

?/ PF flag & Green -flag 

5045 

86 

07 



し DA 

#7 

counter 

5047 

34 

02 


C01 

PBHS 

A 

save counter 

5049 

S6 

2C 



LDA 

林、 

output. , 

504 B 

BD 

D08E 



JSR 

OUT 


504 E 

8D 

42 

3092 


BSR 

GETNUM 

get number 

5050 

A6 

E4 



LDA 

,S 


5052 

F"7 

PlMl -f 

A6 



STB 

A,V 

set parameter 

5054 

マう 

02 



PULS 

A 

counter come back 

5056 

4C 




INCA 



5057 

81 

09 



/CMPA 

林 9 

skip c1 ear flag 


26 

01 

505 C 



C02 


505B 

4C 




INCA 



5 O'riC 

B1 

OB 


ro^ 

a a p Jan m 

CMPA 

#11 

green flag end : ? 

505 E 

26 

E7 

504 フ 


BNE 

C01 



长 chec:sc:rol1 line 

箐 


5060 

Aii 

26 



し DA 

6, Y 

load scrQi l start 

5062 

AB 

,n "7 

.ii / 



ADDA 

7 , v 

- i f 

4 J, 1 

PF on 

5064 

6D 

28 



1ST 

8, Y 

m 

m 

width y>=SL+NS+2 

5066 

27 

02 

506 A 


BEQ 

C03 

;if 

F'F" af f 

5068 

QB 

02 



ftDDA 

#2 

• 

width y>=SL+NS 

SO 6 Pi 

fl] 

25 


CO 3 

CHPA 

5,Y 



506 C 

つつ 

C0 

5036 

★ 

* set 

# 

BHI 

CONS 







cl ear 

flag 



506 E 

30 

BD 

0062 

LEAX 

MEB4-1, 

PCR 

output message 

5072 

BD 

9BDB 


JSR 

MESSAG 



5075 

SD 

IB 

5092 


B5R 

GETNUM 

get 

number 

50 77 

E7 

29 



STB 

9,V 

set 

clear f1aq 

5079 

C6 

01 



し DB 

#¢01 

command INIT 

507 B 

E7 




STB 

2, Y 

set 

command 

5070 

30 

8D 

006 E 


LEAX 

RGB,PCR 

bi os rc.b set 

5081 

86 

10 



し DA 

#¢10 



50EJ3 

A7 

34 



STA 

,X 




01710 

5085 

1 

02 

STY 

つ V 

z , X 

01715 

5088 

CC 

0080 

し DD 

料 128 

0 1720 

508B 

ED 

04 

STD 

4, X 

01730 

508 D 

AD 

9F FBFA 

JSR 

[BIOS] 

01740 

5091 

39 


RTS 


J-K .r-- .-fc 广、 

U2uOU 



菁 




02001 * subroLit i rie: get number 0, - 255 in B r eg 

02002 * ベ 


02010 

5092 

5F 


6ETNUM 

[ し RE 




02020 

5093 

4F 



C し RA 




02030 

5094 

34 

02 

GN01 

PSHS 

A 

save koyi nut 

02040 

5096 

86 

OA 


LDA 

#10 

Breq=Breq 脊 1v 

02050 

5090 

3D 



MUL 



L ? 

02060 

5079 

EB 

EO 


ADDB 

,S + 


1 

02070 

509 B 


04 


PSHS 

B 



02080 

5090 

BD 

DB 34 


JSR 

KEVIN 

keyinput 


02090 

50 AO 

35 

04 


PULS 

B 



02100 

50A2 

81 

30 


ChPA 

♦TO 

t est ' 0 、 ■ 

9 • 

0:110 

50A4 

25 

OB 50B1 


BCS 

GN02 



02120 

50A6 

81 

39 


criPA 

材 9 



02125 

50A8 

つつ 

07 50B1 


BHI 

6 N02 



02126 

50AA 

BD 

DOSE 


JSR 

OUT 

prhobad 


02130 

*50 AD 

80 

30 


SUBA 

iT 0 

^ 0'—>o 


02140 

50 A F 

20 

E3 5094 


BRA 

GN01 



02160 

50B1 



GN02 

RTS 


num,0~25b i 

n Breq 

02170 




簧 





02171 




* messages 




02172 




薈 





021 SO 



ODOA 

CRLF 

EQU 

SODO rl 



02190 

SOB 2 


ODOA 

MES1 

FDB 

CRLF 



02200 

50 B4 


41" 


FCC 

4 Back 

Col or - ' 


02210 

50 CO 


00 


FCB 

0 



02220 

50C1 


ODOA 

MES2 

FDB 

CRLF 



02230 

50 C 3 


57 


FCC 

WIDTH 

.# 


02240 

S0C9 


00 


FCB 

O 



07250 

50 Ch 


ODOA 

MtlS 飞 

FDB 

CRLF 



02260 

50 CC 


43 


FCC 

XONSO し E # 


02270 

5004 


00 


FCB 

0 



02260 

50D5 


ODOA 

MES4 

FDB 

CRLF 



02270 

SOD 7 


63 


FCC 

cl ear 

- 1 or NOc1 ear 

0 * 

02300 

50EE 


00 


FCB 

0 



023 10 




长 





02311 




菁 working 



023 i 2 




箐 





02320 

50 EF 


0006 

RGB 

RHB 

6 

for b i ob 


02330 



00 OP 

sue 匚 OM 

RMB 

11 

■for subEys * 

command 

02340 




* 





09999 



5000 


END 

START 



TOTAL 

ERRORS <：h 

"p * H"h i_ —0000 






TOTAL 

WARNINGS 

リ < 、〇〇〇 - -tjOnQi 

,* | 






PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR= c JOFF 
PROGRAM ENTRY ADDR=50U0 


R e* ai d y 
HARDC 2 


exec &H 5000 

Back Color =0 
HIPTH 48,20 
CONSOLE 0 , 20 , 0,0 
clear*! or (tuclear =6 ? 0 



SUB ： ERASE*ERASE2 —画面クリアー 


機_能|画面と，それに付属するアトリビュートバッファをクリアします • 
ERAS E 2には文字色指定がありますが E RASE にはありません. 

パラメ —夕 


W 



コマンドコード ^ 

消去範囲コード 
背景色 カラー コー ド 
文字色 カラー コー ド 



ERASE : $ 0 2 
ERAS E 2 : $ 0 D 

〇〜7 

〇〜15 (ERASE 2のみ) 



スク ロールモー ド画ば JJ 
ページ モード1画面 
ぺ ー ジモ ー ド2画而 


復帰情報 


0 E 一—エフーコード 


_解 説 I 背景色カラーコードの指定は消去範 M コードが〇 (全画面消去）の 
ときのみ有効となります. 

消去後，カーソルの位置 （バッファ アドレス）は消去した画面の先頭となりま 

す， 


サンプル 






PAGE 

001 t 

1 

> 




01000 



苷 




01010 



# SUBSYSTEM 

ERASE2 


01020 



* 




01030 




OPT 

M,NOS, 

NOB,NOQ,PAGE=255 

01040 


9BDB 

MESSAB 

EDU 


output from ( X+i) till0 

01050 


9 匚 16 

MESSA2 

EQU 

¢9016 

output Breg bytes from ( X> 

01060 


D08E 

OUT 

EDU 

$D08E 

on© character output 

01070 


FBFA 

BIOS 

EQU 

$FBFA 

BIOS (extend-indirect) 

01080 


A 匚 3D 

A160UT 

EOU 

*AC3D 

output A reg in HEX 

01090 


DB54 

KEY IN 

EDU 

$DB54 

keyinput with wait 

01100 



簧 




011 10 

5000 



□RO 

$5000 



57 






cc 

E7 

30 

A7 

10AF 

CC 

ED 

AD 

30 

E6 

BD 

39 


5000 START EQU * 

簧 

* set parameters 

# 


8D 009 F 

ERASE2 

LEAY 

SUBCOM, 

PCR 


* 


c1 ear area no. 


8D 0063 



LEAX 

MES1-I , 

PCR output message 

9BDB 



JSR 

MESSAB 


3F 504C 



BSR 

GETNUM 

get number 

03 



ANDB 

林 3 

no.=0..3 

23 



STB 

3,Y 

set c1 ear area no. 


普 

set 

character col or 

code back col or 仁 ode 

BD 006 A 



LEAX 

NES2-1, 

PCR output meSBage 

9BDB 



JSR 

MESSAG 

# 

32 504C 



BBR 

GETNUM 

get number 

OF 



ANDB 

林 15 

chr, color 0.,15 

25 



STB 

5 f Y 

set chr• col or 

2C 



し DA 

林’， 

output * T * 

D08E 



JSR 

OUT 


27 504 C 



BSR 

GETNUM 

get number 

07 



ANDB 

#7 

back col or 0" 7 

24 

善 


STB 

4，Y 

set back color 


"P[ 

M 

M, 

set 

subsyst 

em command 

100 D 

n; 


LDD 

mioou 

subsys* command ERASE2 

22 



STB 

2,Y 

set subsys, command 

8D 006 B 



LEAX 

RCB,PCR 


84 



STA 

,x 

set rcb request no. (SUBQLIT) 

02 



STY 

2 S X 


0080 



LDD 

林 128 


04 



STD 

4»X 


9F FBFA 



JSR 

CBI0S3 

command enec, 

8D 0046 



LEAX 

MES3,PCR output message 

8D 0041 



' し DB 

MES3L,PCR 

9016 4 



JSR 

MESBA2 





RTS 




02 


簧 

簣 subroutine:get number 0,* 255 in Breg 
# 

GETNUM CLRB 

C し RA 

GN01 PSHS A save keyinput 

OA 


LDA 

#10 Breg-Breg*10 

EO 


MUL 

ADDB 

,S+ Breg^Breg+keyinput 

04 


PSHS 

B 

DB54 


JSR 

KEY IN 

04 


PULS 

B 

30 


CMPA 

# # 0 test " .9* 

OB 

506B 

BCS 

GN02 

39 


CMPA 

# * 9 

07 

506B 

BHI 

6IM02 

DOSE 


JSR 

OUT 

30 


SUBA 

#，0 J 0 

E3 

50 4E 

BRA 

GN01 

ODOA 


GN02 RTS 

朞 

* messages 

簀 

CRLF EQU 

num.0-255 in Breg 

*0D0fi 

ODOA 


HESI FDB 

CRLF 

^ 3 


FCC 

"Cl ear Area CO-3)=' 

00 


FCB 

0 

ODOfi 


MES2 FDB 

CRLF 

43 


FCC 

J Col or 

00 


FCB 

0 

13 


MES3L FCB 

.HES3-MES3 

45 


MEB3 FCC 

# End of eK ecution ! f 

509 D 


.MES3 EQU 

舞 


01120 


01130 


01140 


Oi ISO 


01160 

5000 

01170 


01180 


01190 


01200 

5004 

01210 

5000 

01220 

500 B 

01230 

5000 

01240 

50 OF 

01250 


01260 


012 フ〇 


01280 

5011 

01290 

5015 

01300 

5018 

01310 

501A 

01320 

501C 

01330 

30IE 

01340 

5020 

01350 

5023 

01360 

5025 

01370 

5027 

01380 


01 390 


01400 


01410 

5029 

01420 

502C 

01430 

502E 

01440 

5032 

01450 

5034 

01460 

5037 

01470 

503A 

01480 

503C 

01490 

5040 

01 500 

5044 

01510 

5048 

01520 

504B 

01530 


01540 


01550 


01560 

504 C 

01570 

504 D 

01580 

504E 

01590 

5050 

01600 

3052 

01610 

5053 

01620 

5055 

01630 

5057 

01640 

505A 

01650 

5050 

01660 

505 E 

01670 

5060 

01680 

5062 

01690 

5064 

01 700 

5067 

01710 

5069 

01720 

506B 

01730 


01740 


01750 


01760 


01770 

506 C 

01780 

506E 

01790 

507F 

Ol BOO 

5080 

01810 

5082 

01820 

50B8 

01830 

5089 

01840 

SOSA 

01850 
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F F 4 6 D B 4 D 5 1 5 i 2 D o n- 9 
5 4 3 8 3 E 3 B38282 B82 3 


o D D 4 7 o D D 4 7 6 D D 4 7 
3B8CE3BSCE8B8CE 



01860 

01870 


01880 

01890 5090 0006 

0I 900 50A3 0006 

01910 

01920 5000 

TOTAL ERRORS 00000 一一 00000 


箐 

并 working area 

菁 

RGB RME 6 

SUBCOH RMB 6 

菁 

END START 


TOTAL WARNINGS 00000 一 00000 


PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=50A8 
PROGRAM ENTRY ADDR=5000 


e;:ec ち H 5000 

Clear Area (0-3>=0 

Col or 7,5End of execution ! ! 

Ready 
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PAGh 

00 1( 

01 OOO 


01010 


0 1. 02 0 


〇 1 〇 3 〇 


01040 


01050 


01060 

5000 

01070 


01080 


01090 


01100 


01 U リ 

5000 

01120 

5004 

011 30 

5006 

01140 

5008 

01150 

500 A 

0.1160 

500 C 

0 1170 

50 OE 

01 180 

50 OF 

01190 

50 11 


* 

菁 


SUBSYSTEM PUT 


FBFA 


CL- 




BIOS 

* 

START 
■w st^t 


BD 0051 


24 

05 

04 

2 i > 

CO 


LOOPO1 
LQ0PO2 


OPT 

H,NOS f 

G 1 NDG,PA6E=755 

EDU 

$FBFA 

BIOS (t end — i ndi r 

□RG 

$5000 


EOU 

升 


har ac 

t e?r s 


LEAY 

SUBCOM 

,P し R load ^ubcom- ad 

LDA 

# 缶 03 

subsyB-comfliand PUT 

STfl 

2, Y 

set: cortimand 

LEAU 

4, Y 

load string addr * 

し DB 

#5 

counter 1 

PSHS 

B 

save? counter 1 

CLRE 


clear counter^ 

LDA 


space ! 

STA 

i U+ 

set character 


S U B ： PUT 


文字列出力 



文字列をコンソール画面に表示します.文字列の中にオーダーが含 
まれている場合は，該当するオーダ動作を行います. 



N+3 


$00 


$03 


〇 ~ 


N 


String 




!続フラグ 0 N : $ 8 0 OFF ： $00 


コマンドコード 

データ バイ ト数 （ NS 12 4 
出力文字列 


出力したい文字列が12 4バイトを越える場合は，継続フラグを ON にしてコ 
マンドを送り，その後 ， CO IMT コマンドを用いて残りのデータを送ります.さ 
らに続く場合も同様にし，最後の転送のときに，継続フラグを OFF にしてコマ 
ンドを送ります. 




エフーコ 





i 6 7C64F67 
3 3A3 C35 8 A 


60 









INCB 


7C 




CMPB 

#128-4 

06 

501 E 



BNE 

NODUT 

i) ? 




PSHS 

A 

OF 

502 B 



BSR 

CONT 

02 




PULS 

A 



NDDU1 

INCA 


FF 




CMF'A 

#25〔■ 

EE 

5011 



BNE 

LQDP02 

E4 




DEC 


EQ 

500 F 



BNE 

LQDP01 

05 

502E 



BSR 

NQCQNT 

S4 


* 


PULS 

B,PC 



* 

output string 



* 




80 


CDNT 

LDA 

#$80 

日 1 




FCB 

$81 



NDCDNT 

CLRA 


21 




ST A 

1,Y 





STB 

3,Y 

8D 0018 



LEAX 

RCBfCR 

10 




LDA 

#$10 

84 




STA 

,x 

02 




STY 

2 , X 

0030 




LDD 

ttl2S 

04 




STD 

4,X 

9F FBFft 



JSR 

[BIOS] 

64 




LDA 

#$64 





STA 

CLRB 

2, Y 

24 


箐 


LEAU 

RTS 

4, Y 



长 

war k 

i ng area 



脊 




0006 


RCB 

RhB 

6 


0080 SUBCGM RMB 128 


inc counter 
buf + er full? 
no. 

yes,output string 

i nc character 

chr, f 、 .*FE end フ 

no - 

yes,dec counter 1 

output str 1ng 
end o f ecution 


set cont i 1 aci 

= 匚 MPA 持 (s h: i p next op-code) / /rr/ 
clear 仁 ont f 1 aq ^ 

set string length 
1oad r cb address 
bios request SUBDUT 
set request no. 
set subsys — ciooi_ addr . 
set command length 

command e^ecution 
sub sy- c omman cl CONT 
set czommand 
clear counter2 
1oad strinq address 


50 13 

5014 
5016 

5015 
501A 
501C 
501E 
501F 
5021 
5023 
5025 
5027 
5029 


502 B 
502 D 
502E 
502 F 
5031 

5U )) 

5037 
5039 
503 B 
5031 ：： 
5041 
5043 
5047 
5049 
504B 
504 C 
504 E 


504 F 
5055 


5000 END START 

ERRORS 00000——0000() 

WARN1MGS 0000 【 j — -00000 


01 200 
01210 
01220 
01230 
01240 
01250 
01 260 
01270 
01280 
01290 
01 300 
01310 
01 320 
01330 
01340 
01 350 
01360 
01370 
01380 
01390 
01 400 
01410 
01420 
01 430 
01440 
01450 
01460 
01470 
01480 
01 490 
01500 
o j ?i n 

01520 

ni 530 

|-)1540 
01 550 
01 560 
01570 
01590 
01 590 
TOTAL 
TOTAL 


PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=50D4 
PROGRAM ENTRY ADDR=5000 


\^y. ec か H 500 U 

f 壬ン : 匕ぐ O ， - 、 /0123456789: ; < = >?@ABCDEFGHIJKLMNDPQRSTUVUJXV2 C¥3 '' abcde+qhi j klmno 
pqrstuvH^yz i ；)■—KiigW I I I I liH 卜 — 一 I I r-i ^ ，-. 。 r 」 、 ■ ラ？ .i ゥェォャ : a fa" ノーアイウエオカ中 ？， X コ 7 シス tr ソヴ 

? ツテト： r 二 又ネノ 0 b フ '亦 マ5ムメ モ1 ，ユョ ラリルレ ロ9：：广° 二 ttdf 金ハ.〒市 EWtM 钱! "#*XST (>*+,-■ ハ 〕1 

23456789: ; く = >?8AEtCDEF0H IJK し MNOP0RSTUVWX YZ I ：辛 ] ■ベ abcde+qh i j k 1 mnop qrst uvwx vr C : _ 

^ma^rn i i a ■■■! 1 u トーー i [ 门 u , へ ■■— _， e 「」、 - ヲ 7 ィゥェォャ： i3 っ = アイウエ i 力千ククコ 7 シス trv ヲ午ウテトアニ 35■ ノハヒフ、ホ 7 ミムメ 
tr.Ilf] ラりルレ □ ワン ' 0 ：::: ra If 金 ,♦#_ 〇 • ，ハ ,>：RXS 03* 中 〒:*！ n BJ: 村 • ぃ暖 ? "#^y ■心 ^ < 、 *+,-■ ハ） 123456789: : = >?@APC 

DEFGHIJKLMNOPPRSTLJVW> ： YZ[¥] 々 _ abc:de+ghijklmnopqrstuvw>;yz ( l 一 _― I I ■ ■ H»f L -iH 卜■■画 

-1 し 」，.、 • « r j s ■ ヲ 71 ゥ I 才 t:i3 ， y= アイウエオカ中ワヴコサシ 7tV ヲチツテト*•二芡ネノ フ、市ムメ t ャユ 5 ラリルレ □ ワン” 0 二に 

中 #• 二ぃ ' C<R5 用 EKH 柄！ ^ 〒串叵町 +U .■ 紹 ! 11 〇 /012345678?: ; < = >?@k>iBL ：DEF SHI J KLMNaRQRSTU 

VWXYZ [ ギ]■ハ aticrcje 干 ghi j kl mr>Dp>qrstuvw)(y:z < S ] 〜 _I 1 11HW M il 卜一 I n し」，へ.」〇 r j % - ? 

T.f ^jnp ュ 3 _ リーアイク 1771 中 7 ウ ： 3 サシフ tV ヲチツテトす二芡 5 ノ A ヒフ ' 、市 754 メ f ヤユ 3 ラリルレ〇 91 广 _ 0 二 tTJ ■ 目 ® 

令〒市 EBj 村 l. 嗯 ■ 0 ++,-* / 〇 123456789: ; < = >?@ABCDEFBH IJK し MNDPQRSTUVWX YZ [ ¥] ，二 / abcdef g 

h i j [:1 ninop qr uvw >; yz i \ i ^ _岫__ 1111 ■ ■ H i - H I I rn ，-,*■-■■ 〇「」、■ヲ 7 イウ 1 1 ャ3ヨ 1 v - パイウ：カ守つ 

ヴ：}け£/ 7. t リ，芩，テ h T 二 w ネノ Ab フ、本？:-:厶ゾ ihV □ワ：广 a 二 №1 ▲▼金# ♦ # Ptt 月丰〒* E 0 J +1 I 錄 

Road v 


F 

A 

c 1 6 4 D5C i 6 A 6 D 5 6 F 7 7 0 6 7 OCD D 6 7 r39 
5 c 2 383 4 8 2 6 2 8 3 8 4 A E 3 8 A i c E A 8 A 5 3 3 
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S U B ： G E T — 文字列入力 一 


1 機 能 

" 文字列を出ブ 

O 9mm M 

ハフメータ 

一 

0 

$00 

1 

S’ 0— 

2 

$01 o-p 

3 

N 〇 — 

4 

(■ 

String 〇 — 

} — 

N+3 


出力文字が 12 4 パ / 

して下さい 

• 

復帰情報 

' 文字列出力 1 

ルドを返します. 

0 

is 。— L 

1 

Is ， 4 

2 


3 

K 

4 

N — 

5 

SBA 一 - 

6 

X 一 “ 

7 

Y — L 

8 

t 

String ° 

； 一 r 

N+4 

V ^ 


文字列を出力後，入力待ちとなり入力された文字列を受け取ります. 


継続フラグ継続：$ 8 〇，終 r :$ 〇 〇 


コマンド コー ド 


力文字数 



^ 1 


)) 文字列 


イトを越える場合には PUT と同じ方法でデータを継続 


文字列出力後ユーザに変更された フイール ドのうち最卜段の フ 


エフーコ—— 


継続フラグ (bit 7 ) (*) 


終了 キーコー ド 


$00* Return $ 0 

S 0 2 : C L S 


C or X 


転送バ 


数 （S P A , X , Y をふくむ) 


オーダ S B A 


9 


変史フ 

変史フ 

变史フ 






ルドの X 座標 
ルドの Y 座標 
ルドの文字列 


* :継続フラグ （bit 7 ) が0 N のときは，文字列がまだ続く 
マンドを使用して残リを受けとる必要があります. 



CONT コ 


解 説|転送される文字列の中には，オーダコードは含まれません.このコ 
マンドでは変更された フイ ールドのうち最上段のものを転送するので，ユーザー 
は，残りの変犯されたフ イー ルドを GETC コマンドを用いて受け取る必要があ 
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ります. 

受け取った場合に ， N - 0ならばすベてのフイ ー ルドを転送し終ったことを示 
し， N =3ならば変更されたフイ ー ルドが空文字列であることを示します. 

SUB ： G ETC 一文字列継続入力 一 

w \ get の後で，残りの変更フイールドを受け取ります. 



復帰情報]まだユーザーに返されていないフィールドのうちで最上段のフィ ー 
ルドを返します. 

フォーマツトは GET と同様です. 

^ W \ このコマンドは GET コマンド実行後に使用し，残りのフィールド 
を受け取ります.ユーザは，変更されたフィールドをすべて受け取るまで （N = 
0となるまで)， GETC コマンドをくり返す必要があります. 
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SUB ： GCBLK 1 —枠内文字コード読み取り— 


^_ mj キャラクタ座標で指定した枠内の文字コードを読み取ります. 

ハラメー タ 



0 E エラーコード 

1 S ’ 継続フラグ (bit 7 ) 

2 

3 B ' 転送バイト数 

4 Ci 転送文字列 

I 

B +3 Cm 

継続フラグが〇 N のときは CONT コマンドで残りのデータを要求する必要が 
あります. 

このコマンドは文字コードのみを転送し，その文字の色等の情報は 
転送されません. 

く転送順序〉 


t 



開始位置 
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SUB ： PCBLK 1 — 枠内文字コード表示 一 


機_能| G C B L K 1 と逆に枠内に文字を表示します. 
パラメータ 


0 

$00 


1 1 

S ， 一 

一 継続フラグ （bit 7) 

2 

；$07 — 

p - コマンド コード 

3 

XI — 

—開始位置のキャラクタ座標 X (0-7 9) 

4 

Y 1 

— Y ( 0〜 2 4) 

5 

X 2 一 

—終/位置のキャラクタ座標 X (0-7 9) 

6 

Y 2 卜 

— Y (0 〜2 4) 

7 

at 0 — 

—アトリビュート（色指定）义卞 

8 

B 一 

一 転送バイト数 

9 

Ci 一 

し 严 

— fe 送文字列 

レ， 

} 一 

B +8 

一 

Cm 



分割して転送する場合は継続フラグを1にしてコマンドを送り，残りのデータ 
を CONT コマンドで転送します. 

復帰情報 

0 E — エラーコード 

「解説 文字の転送順序は GCBLK 1 と同様です. 
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SUB : GCBLK 2 —枠内文字 コー ド及び属性読み取り 


機 能 キヤラクタ座標で指定した枠内の文字 コー ドを属性とともに読み取 
ります. 


パラメータ 




4 


:) 


$00 


$00 


$08 


〇 


XI 


〇- 


Y 1 


〇- 


X 2 


a- 


Y 2 


〇- 


復帰情報 



コマン ドコード 

開始位置のキャラクタ座標 
絡了位置のキャラクタ座標 


エフーコード 

継続フラグ （bit 7) 

転送バイト数 （ 1〜12 4 ) 
アトリビュート文字 
文字コード 


X (0-7 9) 

Y (0 〜2 4) 
X (0-7 9) 

Y (0 〜2 4) 


継続フラグが ON のときは， CONT コマンドを使用して残りのデータを要求 
する必要があります. 



アトリビュート文字及び文字 コー ドの読み取り順序は ， GCBLK 


と同棣です. 
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SUB:PCB し K2 


一 枠内文字コード及び属性表示 一 


機 


W 


も行います. 



r* 


4 
1 & 
6 
7 


9 

10 

11 

12 


B+7 
B +8 


$00 

S ， — 

$09 Jr 

1 XI— 

Y1 —r 

X2 一 

Y2 一 - 


B 一 

at 1 一 

Ci “ 

at 1 

C2 


atm 

Cm 


-継続フラグ (bit 7 ) 





■ コマンドコード 





—開始位置のキャラクタ座標 

X 

(0 〜 

7 

9) 

器 

Y 

( 0 〜 

2 

4) 

-終了位置のキャラクタ座標 

X 

(0 〜 

7 

9) 

— 

Y 

( 0 〜 

2 

4) 


転送バイト数 
アトリビュート文字 


文 


3 




ド 


分割して転送する場合は継続フラグを1にしてコマンドを送り，残りのデータ 
を CON 丁コマンドで転送します. 

復帰情 f 

〇 | E °~—エラー コ ード 

語1アトリビュート文字及び文字コードの表示順序は GCBLK 1と同 

様です. 


サン プノ iT | GCBLK 2及び PC BLK 2を使用した例です. 

100 ^ 

110 ， HCBLK2 心 PCBLK2 sample 

120 * 


67 



130 RANDOMIZE TIME 
140 WIDTH 80,2 SjCLS 
150 LOCATE 25,15 

1 PRINT " サ samp 1 e ani mat i nn 
170 LOCATE 0,0 

180 GGSUB 390;PRINT M ■ - ， 

190 GOSUB 390: PR I NT _• I _X>» r 
200 BOSUB 390: PRINT' 1 二： =r=*_ 

210 GOSUB 390: PRINT 11 .// == 

220 EXEC 5000 
230 LOCATE 0,0 
240 PRINT 

250 GOSUB 390: PRlHT tl ” 

260 GOSUB 390: FRI NT 

270 GOSUB 390: PRINT" ノ ,r 

280 EXEC 5000 

290 SOSUB 390:LOCATE 80-7,0:PRINT " 丁 卜 L 
300 GOSUB 39 0: LOCATE 90-7, U PR im " 

310 GOSUB 39 0: LOCATE 80-7,2; PR I NT n >：>：>：>：>：>：； 

320 GOSUB 39 0: し OCATE 80-7,3: PRINT ! BOMB ! 

330 GOSUB 390: LOCATE SO— 7,4 c PRINT Jt 二 :,:: 

340 GOSUB 39 0: LOCATE 80-7,5: PR IMT 11 / 卜 n 了 ^ 

3SO GOSUB 390: LOCATE 80™7,6r PRINT 11 t L H H- 

360 CDLOR7:LG し ATE O t 2:PRINT SPCCBO —/); 

370 LOCATE 0,20 
380 END 

390 COLOR INT(RND 长 7+ U 
400 RETURN 


PAGE 00 1( f ) 

01000 * 

01010 * SUBSYSTEM GCBLK2 を PCB し K2 


01020 



* 


01030 




OPT 

01040 


9BDB 

MESSAG 

EQU 

01050 


FBFA 

BIOS 

EDU 

01060 


AC3D 

A160UT 

EQU 

01070 



簧 


010 BO 

5000 



ORG 

01 090 


5000 

START 

EQU 

oiion 



¥r 


01110 

5000 20 

02 

5004 

BRA 

01120 



箐 


01130 



セ constant 

01140 



* 


01150 

5002 

06 

LEMX 

FCB 

01160 

5003 

06 

LENY 

FCB 

0 1170 



菁 



M, NOS,N0G 7 NOQ ^ PAGE-255 
$9BDB output from (X+l) till0 
iFBFA bi os ( bk t end-^i ndi r ec t > 

*AC3D output A reg in HEX 

$5000 

箐 

GET 


6 move (1enK + 1> *(1eny+I) chr 

6 


01180 * get character block 

011?<：> 於 


0120*> 

5004 

31 

SD 

0003 

GET 

LEAY 

SUBCQM, 

PCR 

ri1?1C) 

50 OB 

■ _i 

8D 

01 ^1F 


LEAK 

DATA,PCR load data buffer address 

01 220 

5000 

[: c 

00( 

>0 


LDD 

#0 

c h r * a (1 r ■ initialize 

01230 

50 OF 

ED 

BD 

00 BC 


STD 

XADR,PCR 

01 240 

5013 

8D 

58 

5060 


BSR 

8ETADR 

chradr • 

01 250 

5015 

CC 

1 108 


LUD 

#¢1108 

subsys — command CGBLi .2 

01260 

50 18 

8D 

72 

30 BC 

GCU 

BSR 

EXEC 

eK et: sir bsys-comm and 

01270 

501A 

50 

24 



LEAK 

4,Y 

skip 0—3 

0 12 BO 

30 1 r 

Eh 

-〆 0 ， 



LDB 

3,V 

1oad data length 

0 L 290 

SO i E 

A6 

su 


B02 

ID A 

,X + 

trans - to data but す er 

U 1 _:“x_ 

5020 

A7 

CO 



STA 

，LJ + 


013 ). 0 

5022 

5 A 




DECB 




01 320 

CT # 1 

‘•U *；： -V 

2 ib 

F9 

SO 1E 

BNE 

BO 2 


01 330 

【 j"| 1C 

SD 

21 


1ST 

1,v 

trans. end ? 

01 340 

5027 

2 A 

OS 

^ 02 E 

BPL 

PUT 

(匚 DMT flag off i 

1 350 

5029 

CC 

1164 


LDD 

#¢1 164 

subsys—command CON T 

01360 

5021 ： 

20 

F：A 

5018 

BRA 

G01 



01370 女 


01 こ >80 * put c: h a r a c t er bloc k 

01390 « 
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E7 22 
30 QD 0041 
A7 BA 
l(W r 02 
CC 0080 
ED 04 
ED 06 
AD 9F FBFA 
25 01 50A5 

39 


* sub rout i ne: sub ays-command ecut ion 

EXEC 
EX 01 


STB 

LEA 

STA 

STY 

し DI) 

STD 

SFD 

JSR 

BCS 

RTS 


2,V set subsys—command 

RCB, PC R set bios parameter 

2,X 

#12B 
4 , X 

6, X 

[BIGS3 

ERROR 


黄 


篑 


error message output 


A 6 

01 

ERROR し DA 

1 , X 

34 

02 

PSHS 

A 

30 

8D 0009 

LEAX 

ERRMES-1,PCR 

BD 

9BDB 

JSR 

MESSAG 

■’ cr 

02 

PULS 

A 

BD 

AC3D 

JSR 

A160LIT 

Cr 

O J 

90 

PULS 

X ,PC 


斧 


workinq area 


ODOA 

ERRME3 

F DB 

53 


FCC 

00 


FCh 

000 r> 

XADR 

FDB 

on od 

DbNI.) 



$0D0A 

# SUBSYSTEM ERROR 


u 






箦 subroutine 


set character address 


005 E 

SETADR 

し DD 

XADR 

,PCR 

char acter 



STD 

3, Y 

set 

X 1 _ Y1 

8C 


ADDD 

LENX 

,PCR 




STD 

5,V 

set 

X2, Y2 

0053 


LDD 

XADR 

,F_ 匚 R 




INCA 


X レ X 1 + 1 

004 E 


STD 

XADR 

， PCR 


FF7D 


ADDA 

LENX 

,PCR X2 

>80 フ 



SUBA 

林 80 



508B 


BNE 

SO1 





PULS 

X 




SOI 

RTS 





adr _ 


音 


EF 

SD 

ij09K 

PUT 

STU 

SD 

39 

50 6 D 

POO 

BSR 

33 

BD 

0123 


LEAU 

CC 

0709 


LDD 

A7 

つつ， 

Jmm- 



STA 

34 

0 4 


PO l 

PSHS 

A6 

CO 


PC 2 

LDA 

A 7 

A5 



STA 

5 匚 




INCB 

11A3 

SD 

0088 


cr-ipu 

27 

06 

5051 


BED 

5D 




TSTB 

2A 

FI 

503 F 


BPL 

86 

BO 



LDA 


81 



FCB 

4F 



P03 

CLRA 

A7 

21 



STA 

EO 

E4 



SUBP 

35 

02 



PLJLS 

4A 




DECA 

E フ 

A6 



STB 

86 

10 



LDA 

8D 

2F 

508 E 


BSft 

11 A3 

8D 

006 D 


CMF-'U 

27 

CC 

^jO こに 


BED 

CC 

6404 


LDD 

A7 

つ 1 



STA 

20 

DO 

50 3D 


BF^A 


DEMD,P じ R set data buffer end ^ddr 

SET ADR set __chr _addr 

DATA.PCR qet data bufter addr, 


科 0909 

2,Y 

B 

， U + 

B, Y 


subsys—crofn. CPBl. K2 : V 3 卜 
set ^ubsys^command 

trans, to Bubcom 


iT'H 

>- 


-8 


DEMD 

P03 

P02 

#$80 

¢81 


■ s * 

Y 


s 


FCR data end ? 

eubcom fu]1(over 123 bytes 

set C0NT flag 
=CMPA # 

C iear UUN! t1aq 

aet num p of transfer 


へ 


tA , V set num - of transfer 

#¢10 bios SUP0UT 

EX01 execute subsys-cofTK 

DEND,PCR data end ? 

POO 

#$6404 set subsys-com* CQNT 

2, Y 
P01 


skip 0 


< J t 4L>n 

502 E 

01410 

503 心 

01420 

5034 

01 430 

5033 

01440 

50 3 B 

01 450 

503 D 

460 

503 F 

01 470 

5041 

0 i 480 

5043 

0 1490 

5044 

01500 

5049 

01510 

「■04 B 

01520 

504C 

0 1 530 

S04E 

r、 1540 


0 J 550 

5051 

015 6 

5052 

01570 

5054 

01580 

5056 

01 590 

5058 

01 600 

5059 

0 lb 10 

505 B 

01620 

505 D 

01 630 

505 F 

01640 

5064 

01650 

w'->66 

0 1 660 

5069 

01670 

506 B 

0 J. 680 


01690 


01 700 


01710 

5060 

01720 

5071 

01730 

5073 

01740 

5076 

01750 

5078 

01760 

507C 

01770 

507 D 

01780 

5081 

01790 

5085 

0] 800 

5087 

01810 

5089 

01820 

5088 

0 1830 


01 840 


01850 


01 已 60 

508 C 

01870 

508 E 

01880 

5092 

01 890 

5074 

01 900 

5097 

0 1910 

509 A 

01920 

507C 

01930 

309 E 

01940 

50 A 2 

019^0 

50 A 4 

01960 


01970 


01980 


01 990 

50A5 

02000 

TjOA7 

U；： 010 

3 0A9 

02020 

50 AD 

011030 


02040 

50B2 

02050 

^0P5 

02060 


02 CJ 70 


02080 


02090 


02 i 00 

50 B9 

0 2110 

50 D ； 

0^120 

50CF 

n パ 1:.0 

50 Di 


D3C 5 D 
82 82S 


DD o 2 o 
8 B 5 o-1 


c D3D c c D B 065 9 
EE E E E 4 E A 8 233 
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02140 

5003 

0008 

RCB 

RMB 

8 

02150 

50 DB 

0080 

SUBCOM 

RMB 

126 

02160 


515B 

DATA 

EQU 

菁 

02170 



w 



02180 


5000 


END 

START 

TOTAL 

ERRORS 

00 000 - — 00 <>00 





TOTAL- WARNINGS 000 ()0 -——00000 


PROGRAM BEGIN ADDR™ 5000 
PROGRAM END ftDDR=515A 
PROGRAM ENTRY ADDR=5000 



SUB ： GBADR —バッファアドレス読み取り一 


^ W ] 現在の バッファ アドレスを読み取ります. 

[ハ フメー タ 



復帰情報 



コマンドコード 


パ'ッフア アドレス 


X 座標 
Y 座標 


( 0 〜7 9 ) 
( 0-2 4 ) 


厂解 説 I このコマンドは常に正常に終了しますのでエラーコードは常 t 

なります. 


注）「 ユーザー ズマニュアルシステム仕様」の復帰情報の項の相対値4，5 
3, 4の誤りです. 


サンプル 丨バッファアドレスを画面左上に表示します. 

PAGE 001 ( , ) 


01 000 





长 


01010 





* SUBSYSTEM 

0 i 020 
0103_0 





簧 

□PT 

01040 



FBFA 


BIDS 

EQU 

01 050 
01 060 



0678 


ABORT! 

簧 

EDU 

0] 070 

5000 





□R6 

01080 



5000 


START 

EQU 

01090 





* 


01100 

5000 

31 

SD 00B3 

GBADR 

LEAY 

0111 0 
01120 

5004 

20 

IB 

5021 

箐 

BRA 

01130 





* keyinput 

01 140 





* 


on so 

5006 

06 

01 


G01 

し DA 

01160 

5008 

A 7 

23 



STA 

01170 

50 0A 

匚 C 

1129 



し DD 

01190 

5000 

8D 

68 

5077 


BSR 

01190 

50 OF 

6F 

21 



CLR 

01 200 

501 1 

A6 

23 



LDA 

01210 

5013 

A7 

24 



STA 

01220 

5015 

86 

01 



LDA 

01230 

50 i / 

A7 

23 



STA 

01240 

5019 

CC 

1007^ 



し DD 

01 250 

501C 

8D 

59 

507 7 


BSR 

01260 

50IE 

BD 

0678 



JSR 


GBADR 

M,NQS, N06, NOO,PAGE=255 

$FBFA ;bios (eKtend—indirect> 

丰 D678 abort test 



$5000 


SUECOM,PCR Y reg=subsys-CDm* ba^e 

B02 QPU ズ 



ec hob act. 


#7-00000001 keyi nput with wait 

3,Y 

#¢1129 

subsys-command 

INKEY 

EXEC 

1,Y 

echo—bac k ! 


3，Y 

get chr 


4，Y 

set chr 


ttl 

v 

set chr length 

=1 

j , T 

#¢1003 

subsys^command 

PUT 

EXEC 

ABORTT 

br^ak key test 



0 と 

は， 


addr 

9 +2 



71 








buffer addr 


01280 
01290 
0130n 

01310 
01320 
()1 330 
0134 り 
Ul 350 
01360 
0 1 370 
01 380 
01 390 
01 400 
0141 0 
010 :、 
01430 
01 440 
01450 
01 460 
01470 
01 480 
01490 

01 *500 
015 J 0 
01520 
01530 
01 ^40 
01550 
u 1 b 60 
01570 
01.SBC 
01 590 
01 600 
0161 0 
01620 
01 630 
01640 
01650 
0 1 660 
01670 
01680 
01 690 

り 1 / <_HJ 

01710 
01720 
01730 
01740 
01750 
01760 
01770 
01 フ 80 

01 790 
01 800 
01810 
01820 
01B30 
01B40 
01 850 
01 860 
01870 
01 880 
01 390 
01900 
01911 j 
01920 
0193C' 
01940 
01 950 
01 960 
01970 
019 BO 
01990 
02000 


箐 get 

菁 

5021 CC 11 OA 602 LDD 

502 斗 8D 51 5077 BSR 


轉 Si 10A sub = ys-command GBADF，: 
EXEC 


* d ] I buff er adrJr ess 


5026 

EC 

23 


LDD 

5028 

ED 

3D 

008.1 

STD 

502 C 

3D 

3ft 

5068 

BSR 

502 E 

A7 

8D 

0071 

STA 


At> 

8D 

0077 

LDA 

" 5036 

8D 

34 

506C 

BSR 

5038 

A 7 

8D 

0068 

STA 

503 C 

A6 

8D 

006 E 

LDft 

5040 

8D 

26 

5063 

BSR 

504^ 

A7 

BD 

0063 

STA 

5046 

A6 

8D 

0064 

LDA 

「 _04A 

8D 

20 

506C 

BSR 

504 C 

A7 

8D 

005 ft 

STA 

5050 

30 

3D 

003 A 

LEAX 

5054 

~~ 甲 •*—w 

■ 画， 

24 


し EAU 

5056 

C6 

21 


し DB 

5053 

E7 

23 


STB 

505A 

A6 

80 

GO 3 

LDA 

505 C 

A7 

CO 


STA 

■: ぃ 05E 

5A 



DECB 

505r 

26 

F9 

505 A 

BNE 

5061 

LG 

10(: 

■ 

LDD 

5064 

3D 

11 

5077 

BSR 

5066 

20 

9E 

5006 

BRA 


3,¥ get buffer address 

BADR,PCR 

HIQH addr X to string 

XH,PCR 

BADR t PCR 

LOW 

XH+i,PCR 

BADR+1,PCR addr Y to string 

HIGH 

YH,PCR 

BADR+1,PCR 

LOW 

YH+1,PCR 

MES,PCR message output 
4 , V 

#.MES-MES set message length 

，•■い/ 

,X+ transfer message to subcom, 

,U+ 

SO 3 

#$1003 subsys-command PUT 

EXEC 

BO 1 


斧 

w- Eubr out i ne: c on ver t he:-t ad ec i mal into string 


5068 

46 


HIGH 

RORA 


MSN 

to Stra ng 

5069 

46 



RORA 




506 A 

46 



RORA 




5069 

46 



RORA 




50fcC 

84 

OF 

し DW 

ANDA 

*t*0F 

LSN 

to String 

S06E 

81 

OA 


CMPA 

#$0A 

;if 

0 一 9 then 十 $30 (ぐ 

5070 

つ CT, 

jLm 

02 

5074 

BLD 


；if 

A—F then +$41 ('A ' 

5072 

SB 

07 


ADDA 

# * A- 

^9 一 1 add 

7 (=$41 -¢30) 

5074 

SB 

30 

NO_? 

ADDA 

# 



5076 

39 



RTS 







* subroutine:subsystem-command execntian 

¥r 


5077 

30 

8D 

0034 

EXEC 

LEAX 

RGB,PCR 

load 

rcb address 

507B 

A7 

84 



SIA 

，x 

set 

bios command 

5070 

E7 

つつ 



STB 

2, Y 

set 

subsys — command 

507 F 

10AF 

02 



STY 

2, X 

set 

buffer address 

5082 

CC 

0025 


LDD 

MES—MES+4 

set num- of transfer 

5085 

ED 

04 



STD 

4, X 



5087 

ED 

06 



STD 

6,X 



5089 

AD 

9F 

FBFA 


JSR 

CBI0S3 

call 

bios ! 

50SD 

39 




RTS 





bytes 


* 

* messages 

菁 


508E 

12 

MES 

5091 

42 


50A3 

00 

XH 

50A5 

20 


30A9 

00 

VH 

50 AB 

20 


50 AC 

12 


50AD 

00 

BADR 


50AF 

.MES 





FCB 

壬 12, 

.¢ 0 , 

¢0 locate U, し， 

FCC 

'Bu-f f er 

Address X—$ 

FCB 

0,0 


addr X 

FCC 

,Y = 



FCB 

FCC 

0,0 


addr Y 

FCB 

FCB 

FZDU 

% 12 

0,0 


locate X,Y 


* working area 


50AF 00 OB 

50B7 0025 


RCB 

RMB 

8 

SUB COM 

RMB 

琴 MES-MES+4 
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菁 


02010 

()20: こ 0 500() END START 

TOTAL ERRORS 00000——00000 
TOTAL WARNINGS 00000——00000 

PROGRAM BEGIN ADDR^ 5000 
PROGRAM END ADDR-50DB 
PROGRAM ENTRY ADDR^ 5000 


Buffer Address X=$16 V-%0^ 

exec を H 5000 

buffer address Here 

Abort 

Ready 

HARDC 


73 



SUB ： TABSET — TAB 位置設定一 


機 能 I タブキーを押した時のカーソル停止位置を設定します. 
パラメータ 


0 

$00 


1 

$00 


2 

$ 0 B — 


3 

i 1 

二 TAB 二 

y 

12 


J 


コマンドコード 

TAB 位置ビットマッフ 


TAB 位置ビットマップ 

bit 7 07 07 07 07 0 


相対値 [ 3 4 I 11 ! 12 

- — --^-- L- -^—— 

TAB 〇 7 8 1516 63 64 7172 79 

位置 


復帰情報 このコマンドはエラーを生じません，したがって復帰情報はありま 
せん. 


サンプル！ 入力された位置に TAB 位置を設定します， 80 以上を入力すると 


終了します. 


PAGE 

001 ( 


f > 






01000 




簧 





01010 




* SUBSYSTEM 

TABSET 



01 ■ つ 20 




* 





0 i 030 





OPT 

M, NOS 

,NOG, N00 ,PABE = 255 


01040 



9BDB 

ME3SA6 

E0U 

幸 ？ BDB 

MESSAGE DU 丁 FROM 

X+l 

01050 



D08E 

OUT 

EDU 

_)8E 

ONE CHR OUT 


01 060 



FBFft 

BIOS 

EQU 

*FBFA 

BIOS (EXTEND-INDIRECT) 

01-070 



DB54 

KEVIN 

EQU 

$DB54 

KEY INPUT WITH WAIT 

01080 




篑 





01 090 

5000 




ORB 

生 5000 



01 100 



5000 

START 

EQU 




0 1110 




菁 





01 i 20 




* tabulation 

poi n t 

set 


01130 




菁 





01140 

5000 

31 

8D 001 )2 

TABSET 

し EAY 

TABPOS,PCR tablet bitmap 

addr . 

01150 

5004 

5F 



CLRB 


c1 ear bitmap 


01160 

5005 

6F 

A5 

101 

CLR 

B,Y 



01170 

5007 

5C 



INCB 




Oil BO 

5008 

Cl 

OA 


CMPP 

#10 




74 



set tabposition 


5075 

5076 

5077 
5079 
50 7 B 
507C 
507 E 
50 已〇 
5083 
50S5 
5087 
508? 
508B 
500D 


* execute subsys—command TABSET 

贅 

505A 31 3D LEAY 一 3,Y get subsys-command addr. 

505C 86 OB LDA subsys-command TABSET 

505E A 7 22 STA 2 f Y set subsys—command 

5060 30 0D 007 C LEAX RGB,PCR get rcb addr . 

5064 86 1 0 LDA tt$10 bios request 

5066 A7 84 STA , X 

50681OAF 02 ST Y 2 f X set subsys—command addr 

506B CC 0000 し DD #13 trans+er 13 bytes (=3+t0) 

506E ED 04 STD 4, X 

5070 AD 9F FBFA J3R [BIOS] execute command 

5074 39 RTS 

篑 


5034 

5038 

503 B 
503C ； 
500 -E 
5040 

5042 

5043 
5045 

5047 

5049 

5048 

504 E 

5050 

505 1 
5053 

5055 

5056 
5058 


T01 

MES 卜 1,PCR 
MESSAG 

BETNUM get tabposition 
TABPOS.PCR 

梓 80 Pos>80 then end 

T05 
B, A 

A=ft/8 


A , Y qet pos addr , 

林 $80 

#¢07 MOD S 

T04 

qet on-bit 


^ subrout i ne: get number U. • ^Izjzj in breq 

簧 

GETNUM C し RB get number(0-255) in Breg 




匚し RA 




02 

GNO1 

PSHS 

A 



OA 


LDA 

#10 

Breg—Breg *10 



MUL 




EO 


ADDE< 

,S + 

Br eg 

=Breg+keyi nput 

04 


PSHS 

B 



DB54 


JSR 

KEY IN 



04 


PULS 

B 



30 


CMPA 

林 ， 0 

TEST 

り • - 9 

oe 

5094 

BCB 

GN02 



39 


CMPA 

# f 9 



07 

5094 

BHI 

GNU 2 



D08E 


JSR 

DUT 




75 


* display tabulation point map 


8D 007 D 

T05 

LEAX 

MES2-1 

,PCR end of tabset 

9BDB 



JSR 

MESSAG 

bit 一 / nap display 




CLRB 



A5 


T06 

LDA 

B f V 

get bit—map 

04 



PSHS 

B 

output 8 bit 

08 



LDB 

衿 8 




T07 

RO し A 



02 



F-SHS 

A 


2E 



LDA 

tt 、 

if not tabposit i on 

02 

504 B 


BCC 

T08 


2A 



LDA 

# * * 

if tabposition 

D08E 


丁 08 

JSR 

OUT 


02 



PULS 

A 





DECB 



EF 

5042 


BNE 

T07 


04 



PULS 

B 





INCB 



OA 



CMPB 

#10 

10 bytes end ? 


E2 503 匚 BNE T06 


50 0A 

26 

F9 

5005 


BNE 

50 OC 

30 

8D 

0 OB 斗 

T02 

LEAX 

3010 

BD 

9BDB 


JSR 

5013 

BD 

60 

5075 


BSR 

3015 

31 

8D 

00 BD 


LEftY 

5019 

Cl 

50 



CMPB 

50IE 

24 

17 

5034 


BH5 

50ID 

IF 

98 



TFR 

501 V- 

44 




し SRA 

5020 

44 




し SRA 

5021 

44 




し SRA 

5022 

31 

A6 



LEAY 

5024 

86 

80 



し DA 

5026 

C4 

07 



ANDB 

5028 

27 

04 

502E 


BEQ 

502A 

44 



103 

し SRA 

502B 

5A 




DECB 

502C 

26 

FC 

502A 


BNE 

502E 

AA 

A4 


了 04 

ORA 

5030 

A7 




STA 

5032 

20 

D8 

50 OC 


BRA 


01190 
01 200 
01210 
01220 
01230 
01240 
01 250 
01260 
01270 
012S0 
01290 
01 300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01 430 
01440 
01450 
01460 
01470 
01480 
01 490 
01500 
01510 
01520 
01530 
01540 
01550 
01 560 
01 570 
01580 
0 1590 
(：)16 00 
01610 
01620 
01630 

01640 

01650 

01660 
01670 
01680 
01690 
01 700 
01710 
01720 
01730 
01740 
01750 
0 i 760 
017 70 
01780 
01790 
01 800 
0131 0 
01820 
01830 
01840 
01350 
01860 
0 1.870 
01880 
01890 
01 ^00 
OHIO 
01920 


3 2 
O Y Y o 

T f 1 T 


Ll F 46D E4D5 1 5 1 2D 
54383E3B3 日 ff 32& 


o- D F 6 4 6 9 4 6 4 6 D 5 A 6 c 


B 5 


BD 


5 2 3 5 c 2 




ec ?4H5 wu 

TAB position(0-79),(end^SO) 
TAB position(0-79) , (end=30> 
TAB position(0^79),(end=80) 
TAB position<0_79>,(end=80) 
TAE そ position(0~79),tend=80) 
TAB posi 1 1 an (0^-7^) , (end-80) 
TAB pc^ition<0-79> , Cend-QO) 
<<< TABSET bit map >>> 


01930 

5U9C' BO 

3n 


SUBA 

+T 0 



01940 

5092 20 

E3 

5077 

BRA 

GN01 



01 950 

5094 39 


GN02 

RIB 


num.0-255 in 

Br eci 

01960 








01970 



* messages 




01 930 



黃 





01 990 

50 9b 

ODOA 

MES1 

FDB 

辛 ODOA 



02000 

5097 

54 


FC 匚 

# TAB 

posi tion (0-7^) , 

(en d 二 8 

02010 

50 BS 

00 


FCB 

0 



02020 


ODOA 

ME52 

FDB 

$ODOA 



02030 

50 BO 

3C 


FCC 

f ^ ^ ，严 

vv:> 

TABSfcT bit—map 

> ノ 》 J 卜 

02040 

5000 

ODOA 


FDB 

$ODOA 



02050 

50D2 

00 


FCB 

0 



02060 



昝 





02070 



戈 - work 

1 ng area 



02080 



■M- 





02090 

5003 

000 ； : " 

着 _ ■ 

SUBCOM 

RMB 

3 

for subsy 5 -^command 

02100 

5006 

ODOA 

TABROS 

RMB 

10 

tabset bit map 

02110 

5*>E0 

0006 

RCS 

RMB 

6 

f or b 1 os 


02120 



* 





02170 


5000 


END 

START 




TOTAL ERRORS 00000——00000 
TOTAL WARNINGS 000 <00 ——⑻000 

PROGRAM BEGIN ADDR- 5000 
PROGRAM END ADDR=50E5 
PROGRAM ENTRY ADDR=5O00 


10 J TABSET samp1 0 program 
20 FOR 1=1 TO 20 
30 PRINT 匚 HR$(9); tab 

40 PR INI " f 11 ; : here is t abposi t i on 

50 NEXT I 
60 END 


Ready 
r Lin 


Ready 


着 

■ 

■_ 

i 

0 

* 


* 


rtt • ■ ■ 4 ■» ,r iJ j ■ _ 

J01. fi J— all c \ 

0 2 3 5 7 7 8 
? ? ? ? ? ? 
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SUB ： CNSCTL —コンソール機能設定一 



一/、フメータ 


サブシステムのコンソール機能の設定を行います, 



コマンド コード 

機能設定フラグ 1=選択〇:非選択 

bit 5 : C R ($ 0 D ) が出力された時に同時に 

L F ($ 0 A ) 動作を行う. 
bit 4 :文字列出力時に E S C キーによる表示の 

停止を有効にする. 

bit 3 : ページ モード画面において，文字がいつ 

ぱいになったときに，ベルをならして表 
示動作を停止しキー入力を侍つ.（ページ 
リミット動作） 

bit 2 : TAB 動作を有効にする. 

bit 1:オーダ動作を有効にする. 
bit 0 :力 ー ソルを渡示する. 


復帰情報|なし • （エラーは生じません.） 

W \ リセット時には，機能設定フラグは$ 2 3 (ioooii 2 ) に設定されま 

す. 

オーダ動作を有効にしなかった場合 ( bit 1= 0)，コードが$ 0 0〜$1 F 及び 
$ 7 F のキャラクタは文字として表示されます. 


サンプル |入力にしたがって機能を設定します.オーダ動作を有効としなかっ 
た場合には ， BAS I C のコマンドは入力できなくなるので注意して下さい. 

( Abort すれば回復します). 

また B A S I C では改行を行う時に$ 0 D ， $ 0 A を I 山 j 方出力しているので， 
bit 5 を ON にした場合には，みかけ上2行改行します. 
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PAGE 

001( 



) 





01000 





青 




0 1010 





* SUBSYSTEM 

CNSCTL 


01020 





箐 




01030 






OPT 

M,NOS, 

NOG,MOO,PAGE«255 

01040 



9BDB 


NESSAO 

EQU 

$9BDB 

message out from X+l 

01 050 



DOBE 


OUT 

EQU 

*D08E 

one chr out 

01060 



FBFA 


BIDS 

EQU 

SFBFA 

b i os C ei:tend-*i ndi rect) 

01070 



DB54 


KEY IN 

EQU 

$DB34 

keyinput with wait 

01 080 





簧 




01 090 

5000 





ORG 

$5000 


011 00 



5000 


START 

EQU 

* 


o i i i o 





* 




01111 





* set | 

parameters 


01112 





簧 




01120 

3000 

31 

BD 0116 

CNSCTL 

LEAY 

SUBCQM 

,PCR 

01130 

5004 

6F 

23 



CLR 

3, Y 

clear flags 

01140 

S006 

33 

BD 00 

3E 


LEAL) 

MESPTR 

,PCR -for message output 

01150 

50 OA 

C6 

20 



し DB 

#7-00i 00000 counter 

01160 

50 OC 

34 

04 


C01 

PSHS 

B 


01170 

50 OE 

AE 

Cl 



LDX 

f U++ 

1oad message address 

01180 

5010 

IF 

50 



TFR 

PC,D 


01190 



5013 


OFFSET 

EQU 

菁 +1 


01 200 

5012 

30 

SB 



LEAX 

D, X 

add offset 

01210 

5014 

34 

40 



PSHS 

U 


01 220 

5016 

BD 

9BDB 



JSR 

MESSAG 

message output 

01230 

5019 

BD 

DB54 



JSR 

KEYIN 

keyi n 

01240 

501C 

BD 

DOSE 



JSR 

OUT 

echo back 

01250 

501F 

35 

40 



PULS 

U 


01260 

5021 

E6 

E4 



し DB 

,s 

1oad counter 

01270 

5023 

B4 

01 



ANDA 

#¢01 

keyinput-* 1 ? 

01280 

5025 

27 

04 

502B 


BEG 

C02 


01290 

5027 

EA 

23 



ORB 

3,Y 

flag on ! 

01300 

5029 

E7 

，マ 

-i-Ji 



STB 

3 f Y 


01310 

502B 

35 

04 


C02 

PULS 

B 

counter come back 

01320 

502D 

54 




LSRB 


count up 

01330 

502E 

26 

DC 

50 OC 


BNE 

coi 


01331 





餐 




01332 





* subsys-command CNSCT し execution 

01333 





箐 




01340 

5030 

86 

OC 



し DA 

林 $oc 

subsys—command CNSCTL 

01 350 

5032 

A フ 

22 



STA 

2,Y 

set command 

01360 

5034 

30 

BD 00 OA 


LEAX 

RGB,PCR get rcb address 

01370 

5038 

AD 

9F FBFA 


JSR 

[BIOS] 

command bk e 仁 utian 

01380 

503C 

A6 

23 



LDA 

3,Y 

load flags 

01390 

503E 

B7 

05A8 



STA 

$5A8 

initialize for BASIC flags 

01400 

5041 

39 




RTS 



01410 





簧 




01411 





* constant 



01412 





箐 




01420 

5042 


i 000 


RGB 

FDB 

¢1000, 

SUBCDM,4 for bios 

01430 





* 




01440 

5048 


0041 


MESPTR 

FDB 

MES1—OFFSET -for message output 

01450 

504A 


0062 



FDB 

MES2 - OFFSET 

01460 

504C 


0083 



FDB 

MES3-QFFSET 

014 フ〇 

504E 


00A4 



FDB 

MES4-0FFSET 

01480 

5050 


0 0C5 



FDB 

MESS - OFFSET 

01490 

5052 


0 0E6 



FDB 

MES6-QFFSET 

01500 





长 




01501 





* messages 



01502 





箐 




01510 



ODOA 


CRLF 

EQU 

*ODOA 

output messages 

01520 

5054 


ODOA 


MES1 

FDB 

CRLF 


01530 

5056 


61 



FCC 

# auto 

LF ? (ON:1,0FF;0) Y 

01540 

5074 


00 



FCB 



01550 

5075 


ODOA 


NES2 

FDB 

CRLF 

« 

01560 

5077 


70 



FCC 

f put wait ? (ON: 1 ,0FF;0) f 

01570 

5095 


00 



FCB 

0 


01500 

5096 


ODOA 


MES3 

FDB 

CRLF 


01 590 

5098 


70 



FCC 

’ page 

wait ? (ON: 1,0FF:0) * 

01600 

50B6 


00 



FCB 

0 


01610 

50B7 


ODOA 


MES4 

FDB 

CRLF 


01620 

50B9 


54 



FCC 

^TAB action ? (ON:1,0FF:O) * 
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01630 

SOD 7 

00 


IFCB 

0 



01640 

5009 

ODOA 

MES5 

FDB 

CRLF 



01 650 

SODA 

6F 


FCC 

* order 

action ? 

(ON:1,0FF:0) 

01660 

50 Fa 

00 


FCB 

0 



01 670 

50F9 

ODOA 

MES6 

FDB 

CRLF 



01680 

50FB 

63 


FCC 

* curspr 

display ? 

(ON:1.OFFrO) 

01690 

5119 

00 


FCB 

0 



01700 








01701 



* wor k 

i ng area 




01702 



* 





01710 

511A 

0004 

SUBCOM 

RMB 

4 

for subsys 

—command 

01715 



普 





01720 


5000 


END 

START 



TOTAL 

ERRORS 

00000--00000 







TOTAL WARNINGS 00000——00000 

PROGRAM BEGIN ADDR=5000 
PROGRAM END' ADDR=51ID 
PROGRAM ENTRY ADDR=5000 


ex ec ?yH 5000 

auto し F ? (GN:1,DFFsO) 0 
put wait ? {ON:1,OFF : 0)1 
page wait ? <0N: 1 ， 0 FF ミ 0> 1 
TAB action ? (ON;1 9 OFF : 0)1 
order action ? CON:1,DFF:0)1 
cursor display ? ( QN : 1,OFF : 0)1 
Ready 
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S U B ： L I N E 一直線又は四角の表示一 


機 能| B A S I C の L I N E 文に相当し， 

パラメータ 


0 

$00 

H i 

1 

$00 


2 

厂 $ 15 一 

コマンドコード 

3 

CL 一 

カフ ー コ ー ト’ （0 〜 

4 

F 一 

——ファンクションコー 

5 



6 | 

XI — | 

始点の X 座標 （0 〜 

7 



8 

Y 1 一 

一 始点の Y 座標 （0 〜 

9 

10 

X 2 一 

—終点の X 座標 （0 〜 

11 



12 

Y 2 

終点の Y 座標 （0 〜 

13 

B 一 

ボックスフフグ 


復帰情報 | 

0 E ° —— エラ ー コード 


直線又は四角を表示します. 


7) 

ド （ NOT を除く，〇〜 4) 
6 3 9 ) 

19 9) 

6 3 9 ) 

19 9) 

0 :直線表示 

1:四角形の枠表示 

2:四角形ぬりつぶし表示 


解 説 I 四角形表示のときには (XI， Y 1 )~ (X 2, Y 2) を対角線とす 
る四角形を表示します. 

注)グラフ イ ック関係のサンプルはまとめて示します • 
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S U B ： C H A I N —連続直線表示一 


こ機 能 I 指定された座標を順々に直線で結びます*巳 

CT 文に相当します. 

ハフメ ー タ|| 


0 

$00 

1 

$00 

2 

$ 16 °— 

3 

CL Hr 

4 | 

F 

5 

N ^ — 

6, 7 

XI °— 

8 、 9 

Y1 ユ 

10、11 

X2 

12、13 

Y2 

S - 

レ 

4. N +2、3 

Xn 

4-N +4、5 

Yn 

復帰情報 


0 

E 一 - 


コマンドコード 

カラーコード （0 〜 7) 
ファンクションコード （0 〜 

座標数 （ 2〜3 0 ) 

X 座標 （0 〜 6 3 9 ) 

Y 座標 （0 〜 19 9) 


エラーコード 


ASICOCONME 


4， NOT を除く） 


81 





S U B : P 0 I INI T — 点表示 一 



指定された座標に点を表示します. 


0 

$00 

1 

$00 

2 

$ 17 。 —- 

3 

N 一 

4, 5 

XI — 

6、7 

Y1 一 - 

8 

CL1 。 —- 

9 

F1 〇 — 

i = 


6 N — 2,1 

Xn 

6N +0，1 

Yn 

6N +2 

CLn 

6N+3 

Fn 

復帰 情報 

— 

0 

E 一 


コマンドコード 

衷示点数 （ 1〜2 0〉 

X 座標 （0 〜6 3 9) 

Y 座標 （ 0〜19 9 ) 

カラー コード （0 〜 7) 
フアンクシヨンコ—ド （Q 


エフーコー 



〜4， NOT を除く） 
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SUB ： PA I NT —ペイントー 

m ] 指定された座標を含み，境界色によって囲まれた部分を，指定色で 
塗りつぶします. 

パラメータ 

0 
1 
2 

3 

4 

5 

6 

7 

8 
9 
i 

NC 〜8 I BCn 



解説ペイントカラー及び画面の端も，境界色とみなされます. 
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SUB ： SYMBOL — 文字列表示 一 


機 能 i 文字列を，指定した角度，大きさで表示します 



コマンドコード 

カラー コード （0 〜7 ) 

フアンクシヨンコード （0 〜 5) 

アングルコード（下図参照，〇〜 3) 

文字横幅倍率 （ 0〜2 5 5 ) 

文字縦幅倍率 （ 0〜2 5 5 > 

X 座標 （0 〜6 3 9 ) 

Y 座標 （0 〜19 9) 

文字数 （1 〜8 0) 

文字列 


アングルコード 

■指定座標 





解 説」倍率は，1，1で桁数8 0字のときのキャラクタと同じ大きさにな 
ります， 
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SUB ： CCOLOR —枠内色変換 一 


機 能|枠内の指定色を他の色へ変更します. 





4 






2 N + 10 
2 N+ 11 



$00 

$00 

$1A 

a— 

XI 

o-— - 

Y1 


X2 

o —— 

Y2 

«^-j- 

N 

o ——— 

CLA1 

0 —— 

CLB1 

o - 


CLAn 

CLBn 


E 

0 - 


コマンド コード 

開始位置 X 座標 （0 〜 6 3 9 ) 

Y 座標 （0 〜19 9) 
終了位置 X 座標 （0 〜6 3 9 ) 

Y 座標 （0 〜19 9) 

変更するカラーの数 （ 1〜8〉 

旧カラ ー コ ー ド （0 〜 7) 

新カラ ー コ ー ド （ 0 〜 7 ) 


エフ ー コード 


解，説| このコマンドは， 枠内の旧 カラーコードの ドットをすべて新 カラー 
コードの ドットにおきかえます. 

この コマンドは， F-BAS IC では使用されておらずパレットによる色のお 
きかえとは異なります. 
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SUB : GGBLK 1 —枠内ドット読み取り 


機 能，枠内のドットをビットバターンとして読み取ります. 


パラメータ 


0 

1 

2 

3, 4 

$00 

$00 

$1 B 一 

XI °~I 

——コマンドコード 

—開始位置 X 座標 （ 0 〜 6 3 9〉 

5、 6 ! 

Y 1 ^ 

— Y 座標 (0-199) 

7, 8 

X 2 °~~ 

終/位置 X 座標 （ 0 〜 6 3 9 > 

9,10 

Y 2 — 

— Y 座標 (0-199) 

11 

12 ; 

し 

N 1 

CL 1 — 

一 読み取る色の数 （ 1 〜 8 ) 

カフ ー コ ー ド（〇〜 7) 

N +11 

CLn 



復帰情報 


0 

E °— 

- エノ ^^コド 

1 


一 継続フラグ （ bit7) 

2 



3 

_ 

B H 

一 転送バイト数 

4 ； 

( 

Pattern ^ 

—画面データ 

) 

B + 3" 

.J 

!W 

I 


継続フラグが〇 N のときは， COMT コマンドで残りのデータを要求する必要 
があります.指定色のドットのみを転送します.（指定色は8色まで） 

ドツ トパターンと画面データとの対応を下図に示します. 


ドッ ト パターン 

012345 6789 




画面 データ 


4 

0 

1 

〇 " 

0 

0 

1 

0 

0 

5 

0 

1 

r o 

0 

1 

0 

1 

0 

6 

1 

0 

1 

0 

0 

0 

0 

1 

7 

0 

0 

0 

1 

0 

0 

X 

X 


X :不定 
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SUB ： PGBLK 1 —枠内ドット表示 一 


機 能 GGBLK 1と逆に枠内にドットパターンを指定色で表示します. 


パラメータ 


0 

$00 

1 

S , — 

2 

$1 C — 

3、4、 

XI 一 

5、6、 

Y 1 一 

7、8 

X 2 — 

9、10 

Y 2 一 

11 

CL — 

12 

F — 

13 

B 一 

14 

( - 

Pattern 

) ^ 

B +13 

W — 


継続フラグ （bit 7) 

コマン ドコード 

開始位置 X 座標 （0 〜6 3 9 ) 

Y 座標 （0 〜19 9) 
終了位置 X 座標 （0 〜6 3 9 ) 

Y 座標 （0 〜19 9) 

カラーコード （0 〜 7) 

フアンクシヨンコード （0 〜 5) 

転送バイト数 （ 1〜1 14) 

画面データ 


分割して転送する場合は継続フラグを1にしてコマンドを送り，残りのテーダ 
を COMT コマンドで転送する必要があります， 


復帰情報 I 

0 E 一——エラーコード 


解 説 ドットパターンと画面データとの対応は GGBLK 1と同様です. 
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SUB ： GGBLK 2 —枠内ドット読み取り（色付き） 一 


m. _ mj 枠内のドットをビットパターンとして読み取ります.この際 ， rg 

B のすベての画面を読み取ります. 

パラメータ 


0 

$00 

1 

$00 

2 

$1D °— 

3、4 

XI イ 

3、6 

Y1 ° 

7. 8 

X2 °— 

9、10 

Y2 一 

復帰情報 

一 

0 

E °— 

1 

S ， 。—— 

2 


3 

B ° — 

4 

Pattern °~ 

) q 

B + 3 



コマンドコード 

開始位置 X 座標 （0 〜6 3 9 ) 

Y 座標 (0-199) 
終了位置 X 座標 （0 〜6 3 9 ) 

Y 座標 (0-199) 

エラーコード 

継続フラグ （bit 7) 

転送バイト数 
画面データ 


継続フラグが ON のときは， CON 丁コマンドで残りのデータを要求する必要 
があります. 

画面のドットパターンは，各原色ごとに，青•赤•緑の順で転送されます.それ 
ぞれの原色でのドットパターンと画面デ_夕との対応は G G B L K 1と同様です. 
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SUB ： PGBLK 2 —枠内ドット表示(色付き） 一 


[p ^~\ G G B L K 2と逆に枠内にドットパターンを表示します.この場合 
ドット毎の色は G G B L K 2で読み込んだ時と同様になります. 

[パラメータ] 


0 

$00 


1 

S ， — 

一 継続フラグ (bit 7 ) 

2 

$1 E 一 

— コマンドコード 

3、4 

XI 一 

一 開始位置 X 座標 （ 0 〜 6 3 9 ) 

5. 6 

Y 1 — 

Y 座標 （0 〜 19 9) 

7, 8 

XI 一 

一 終了位置 X 座標 （0 〜 6 3 9 ) 

9,10 

Y 1 卜 

Y 座標 （0 〜 19 9) 

11 



12 

F 一 

—— フアンクシヨンコード（0， 2~ 

13 

B 一 

一 転送バイト数 

14 

( - 

Pattern °— 

一 ， 

画面 データ 

) ， 

B +13 

W ， 

— 


分割して転送する場合は継続フラグを1にしてコマンドを送り，残りのデータ 
を CONT コマンドで転送します. 


復帰情報 I 

0 h 一——エラーコード 


i ファンクションコードに PRESET (1) は設定できません • 
各原色 ごとの ドット パターンと 画面 データとの 対応は GGBLK 1 と 同様です. 
転送の順序は青•赤 • 緑の順です. 
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SUB • GCURS —座標読み取り一 


機 能 グラフイツクカーソルを使用してオペレータが示した座標を，読み 
取ります.座標数は〗0個まで可能です. 


0 

$00 

1 

$00 

2 

$1 F °~: 

3 

CL — 

4 

N — 

5\ 6 

X — 

7、8 

Y 一' 

復帰情報 


0 

r e 叫匕 

1 


2 


3、4 

XI 一 

5, 6 

Y 1 。 


b 丁 

4 N -1.0 

Xn 

4 N +1.2 

Yn 


コマンドコード 

グラフィックカーソルの色 （0 〜 7) 

読み取る座標の数 （ 1~1 0) 

初期座爭 X 座標 （ 0〜6 3 9 ) 1最初にグラフィ 

Y 座標 （0 〜 19 9 )j ックカーソルを 

表示する座標 


エフー コ ー k 


読み取った座標 


X 座標 
Y 座標 


解 説 グラフイツクカーソルの移動の方法は F-BAS I C と同様です. 

匕のコマンドは，疏み取る座標の数だけ座標を得る （ Return キーが押される) 
まで終了しません， 
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S U B ： C L I N E 一文字による直線又は四角の表示一 


福 罷文字によって直線や四角を表示します. 

パラメ-夕 i 


F 

0 

$00 | 

1 

$00 

2 

$20 一 

3 

CL — 

4 

CHR —- 

5 


6 

XI — 

7 


8 

Yi 一 

9 


10 

X 2 一 

11 


12 

Y 2 一 

13 

B 一 


復帰情報 I 

0 E 


コマンドコード 

カラーコード （〇 〜 7) 

文字コード （$ 2 0〜$ FE ) 

始点の X 座標 （0 〜7 9) 

始点の Y 座標 (0-2 4) 

終点の X 座標 （0 〜7 9〉 

終点の Y 座標 (0-2 4) 

ボックスフラグ 0 :直線表示 

1:四角形の枠を表示 
2:四角形ぬりつぶし 

エラーコード 


菊 W \ 座標の指定はキャラクタ座標なので注意して下さい.指定した文字 
( CHR ) で直線ないし四角を表示します. 


くグラフイツク関係サブシステムコマンド.サンプルプログラム〉 

グラフイ ック関係のサブシス テムコマン ドを用いたサンプルを示します.ここ 
で 使用 した コマンドは， 

ERASE ， LINE ， CHAIN , PAINT，SYMBOL 
CCOLOR 

の 6 つです. 
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サンプル 


PAGE 

001 ( 


， 000001 > 




01000 




黄 



0 3 010 




* subsystem 

GRAPHIC command sample 

01020 




菁 



01030 




^ ! 1 \ 

n ot p 

osition independent 丨！！ 

01040 




* 



01050 





DPT 

M,NOS,NOG,PAGE-255 

01060 



FBFA 

BIOS 

E{QU 

$FBFA BIOS (e:< tend - i ndl rec:t > 

01070 




关 



01080 

5000 




GRG 

¢5000 

0 3.090 



5000 

START 

EQL.J 

黃 

01100 







〇 1. 11 〇 




M MAIN 

PROGRAM 

01120 







01130 

5000 

BE 

50 OF 


LDX 

ttRCBPTR 1-oad rcb address 

01140 

5003 

AD 

9F FBFA 

M01 

JSR 

CBICJS3 call b i os 

01150 

5007 

30 

06 


し EAX 

6 ^ X 1oad nex t rcb address 

01160 

5009 

ec 

5051 


CMPX 

ttRCBEND end ? 

01170 

500 C 

26 

F5 5003 


BNE 

M01 

01180 

50 OE 

39 



RTS 


01190 




贅 



0 i 200 




* RCB 

f or subsystem call 

01210 







01220 



50 OF 

RCBPTR 

EQU 

普 

01230 

50 OF 


1 000 


FDB 

* 100 0,SUBCO,SUBC1 一 SUBCO 

01240 

5015 


1 000 


FDB 

$1 000 ,SUBC1 f 5UBC2-SUBC1 

01250 

50IB 


1000 


FDB 

壬 1 000 ,SUBC2,SUBC3-SUBC2 

01260 

3021 


1 000 


FDB 

$1000 ? SUBC3,SUBC4-SUBC3 

01270 

5027 


1000 


FDB 

$1 000 ,SUBC4,SUBC5-SUBC4 

01^!80 

502 D 


1000 


FDB 

¢1000 1 SUBC5, SIJBC6-BUBC5 

01290 

5033 


1 non 


FDB 

$1000 ,SUBC6,BUBC7-SUBC6 

01300 

5039 


1000 


FDB 

$ 1 000 f SUBC7 , BUBC8-SUBr：7 

01310 

503 F 


1 000 


FDB 

¢1000 ,SUBC8,SUBC9—SUBC8 

01320 

5045 


1 000 


FDB 

$ 1 000 ,SUBC9,SUBC10—SUB 匚 9 

〇 1330 

504D 


1 000 


FDE! 

$1 000 »SUBC10,SUEC11 - SUBC10 

01340 



5051 

RCBEND 

EQU 

* 

01350 




* 



01360 




* subsystem 

commands 

01370 




箐 



01380 




* 

ERASE 

01390 

5051 


00 

SUECO 

FCB 

0,0^02,0,0 

01 400 




丑 

SYHBO し 

01410 

5056 


0000 

SUHC1 

FDB 

0,$1905,0,4 0303 ,20,0 

01420 

5062 


19 


FCB 

SUDC2-MES 

01430 

5063 


46 

MEG 

FCC 

'Fujitsu Personal Computer 

01440 




# 

LINE (B> 

01450 

5070 


0000 

SUEC2 

FDB 

0, SI 507 

01460 

5080 


no 
■ ™ 


FCB 

0 

01470 

5081 


0000 


FDB 

0,0 ,639, 199,$0100 

01^80 





CHAIN -fnr 下 * 

01^90 

508B 


0000 

SUBC3 

FDB 

0,$ 1606 »11 

01500 

5091 


0014 


FDB 

20,30 j 20, 170 ,50,170^50,110 

01510 

50 A1 


0096 


FDB 

150, 110,150,90 1 50,90,50,50 

01520 

5081 


00 BE 


FDB 

190,50,190,30,20,30 

01 530 





CHAIN iar 霄 

01.540 

50BD 


0000 

SUBC4 

FDB 

0,$1606 t 13 

01550 

50C3 


00 DC 


FDB 

220,30,220,170,250 ,170, 250,BO 

01 

5003 


0140 


FDB 

320 t 150,390,80,390, 170,420,170 

01570 

5 0E3 


01A4 


FDB 

420,30,390 » 30, 320 , 100 、 250,30 

01380 

50F3 


00 DC 


FDB 

220 f 30 

01590 




箐 

CHAIN for 了 

01 600 

50F7 


0000 

S け DCS 

FDB 

0 t $1606 9 i0 

01610 

50FD 


01 C 2 


FDB 

450,30, 450,70, 480,70,ABO,50 

01 620 

51 OD 


02 4E 


FDB 

590,30, 480,170,510,170,620 ,50 

01630 

511D 


026C 


FDB 

620,30,450,30 

01 640 





PAINT far 

ni 65 n 

5125 


00 

SIJBC6 

FCB 

0,0,518 

01 660 

312 B 


0016 


FDB 

严 m "T ^ 

01. 670 

512C 


02 


FCE-i 

2,1 

01 680 

tL ： i 

V-r Jh... L. » 


06 


PCD 


01690 




菁 

PAINT for W 
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01 700 

512F r 

00 

SUBC7 

FCB 

0,0 ，车 18 



01710 

5132 

0140 


FDB 

320,148 



01720 

5136 

02 


FCB 

2,1 



01730 

5138 

06 


FCB 

6 



01740 




PAINT far *1 

i # 


01750 

5139 

00 

SUBC8 

FCB 

0,0 , $ 18 



01760 

513C 

0IC4 


FDB 

452,32 



01770 

5140 

02 


FCB 

2，1 



01780 

5142 

06 


FCB 

h 



01790 



* 

CCDLOR 



01 BOO 

5143 

00 

SUBC9 

FCB 

0 ，〇 , $ 1A 



01810 

5146 

0000 


FDB 

0,0,639 , 

199 


01820 

514E 

05 


FCB 




01830 

514F 

00 


FCB 

0 ， 1 ， 2 ， 4 , 

5,2,6,7, 

,7,5 

01.840 




CCOLDR 



01850 

5159 

00 

SUBC10 

FCB 

0,0 , $ 1A 



01860 

515C 

0000 


FDB 

0 s 0,639| 

199 


01870 

5164 

05 


FCB 

5 



01880 

，E ^165 

01 


FCB 

1,0 ，々山 

，マ 7 CT 

ム，し ■ ? / JJ _ 

ぷ ， 7 

01890 


516F 

SUBC11 

EDU 

箐 



01 900 



箐 





01910 


5000 


END 

START 




TOTAL ERRORS 00000—--00000 
TOTAL WARNINGS 00000—00000 


PROGRAM BEGIN ADDR 二 5000 
PROGRAM END ADDR=516E 
PROGRAM ENTRY ADDR^ 5000 
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SUB ： I N K E Y ー キー入力一 



キーボートから彳文字取り込みます, 



コマンドコード 

制御フラグ 

bit 0 :ウェイトフラグ 
bit 1 : Reset フラグ 


ウエイトフラグを1にすると，キー入力があるまで待ちます.また ， RESE 
T フラグを1にすると，キー入力に先だってキー入カバッファ （ SUBCPU メ 
モリ内にある.）をクリアします. 


復帰情報 



入力され たキーのアスキーコー ド （0 〜255) 
入力の有無0:なし1:あり 


解_説] EN が0のときの K の値は意味を持ちません. 

オーダによってキーの先行入力を可能にしている場合には，先行入力した文字 
が順々にセットされます.よって FM 7では， PC や MZ などのようにキーがそ 
の時点で押されていないという状態を得る（本当の意味でのリアルタイムキー入 
力）ことはできません. 

FM 7のこのコマンドでは， FM 8のこのコマンドにあった制御フラグのうち 
bit 2 の RE S ET 2のフラグがなくなっています.これはサブ C PU のメモリ上 
にキー入カバッファ （32 文字分）が作られたために削除されたものです. 


サンプル GBADR の項を参照 （ GBADR のサンプルで使用) 
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SUB ： DEFPF —PF キー定義一 




プログラマブル • ファンクシヨンキーに文字列を定義します. 


0 

$00 

1 

$00 

2 

$2 A ^ 

3 

NO d 

4 

N 一 

5 

String 〇— 

い 

— 产 

4 + N 


復帰情報 

i 

0 

E — 


コマンド コー 

P F キ—^悉^号 
文字数 （0 〜 



ュ^フー_コ—ド 


( 1 〜 10 ) 
15 ) 


_解 _説|ファンクションキーが割り込み用に定義されている時には，このコ 
マンドにより文字列は定義されますが， PF キーを押しても期待する文字列は得 
られません.しかし，割り込み用の定義を解除すれば，最後に設定された文字列 
が得られるようになります. 
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SU 巳 ： GETPF 


一 P F キー文字列読み取り 一 


機 能 j プログラマブル.ファンクシヨンキーに定義されている文字列を読 

み取ります. 

パラメータ 


〇 

1 


$00 


$00 


$2 B 

〇- 

NO 

〇- 


コマンドコード 

PF キー番号 （1 〜 10) 




b 


$00 


NO - 


N 


String 


4+ N 


o- 


a 


PF キー番号 （1 〜 10> 
文字数 (0 〜 15) 

文字例 


解 説 |このコマンドでは， PF キーが割り込み用に設定されているか否か 
にかかわらず ， P F キーに設定されている文字列を返します. 

割り込み用として設定されている場合には， PF キーを押しても，このコマン 
ドで返される文字列は得られません.割り込み設定が解除されれば，文字列が得 


られるのは， DEFPF の項で述べた通りです. 


サンプル 






PAGE 001 

( 

) 




01000 


箐 




01010 


* SUBSYSTEM 

DEFPF 

GETPF 

01020 

01030 



OPT 

M,NOO, 

N0S,NG6,P^255 

01040 

FBFA 

BIDS 

EQU 

tFEFfi 

b i os (e: ■: tend —i nd i rect) 

01050 

9BDB 

MESSAG 

EDLJ 

丰 9E1DB 

output from (X +1)till 

01060 

DB54 

KEVIN 

EGRJ 

$DB54 

key i npu t with wait 

01070 

D08E 

OUT 

EQU 

$D08E 

one character output 

01080 

01090 

D807 

し： E NEIN 

箐 

EDU 

$0807 

line input 
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01100 

5000 




ORG 

o 11 .i o 



5000 

START 

EQU 

01120 




* 


01130 




* set 

PFkey 

011 40 




升 


01150 

5000 

30 

白 D 0082 

PFNUM 

LEAX 

01160 

5004 

BD 

9BDB 


JSR 

01 170 

5007 

BD 

DB54 


JSR 

01180 

50 OA 

8] 

30 


CMPA 

01190 

500 じ 

25 

7B 5086 


BCS 

01200 

500E 

81 

39 


CMPA 

01210 

5010 

フ 2 

74 5086 


BHI 

01220 

5012 

BD 

DOSE 


JSR 

01 230 

5015 

00 

30 


SlJBft 

01240 

5017 

26 

02 50IB 


BNE 

01250 

3019 

B6 

OA 


LDA 

01260 




簧 


01 270 




* get 

F'F key 

01260 






01290 

50 i B 

31 

9D 00 hB 

GETPF 

LEAV 

01 300 

50IF 

A7 



BTA 

01310 

SO 21 

86 

2B 


し DA 

01320 

5023 

A7 

つつ 


BTA 

01330 

5025 

30 

BD 0099 


LEAX 

01340 

5029 

86 

11 


LDA 

01 350 

,502B 

A 7 

84 


STA 

01360 

50 2D 

10AF 

02 


STY 

01370 

5030 

cc 

00 14 


LDD 

01 380 

5033 

ED 

04 


STD 

01 390 

5035 

ED 

06 


STD 

0 ] 400 

5037 

AD 

9F FBFA 


JSR 

01410 

503B 

30 

8D 0060 


LEAX 

01420 

503F 

BD 

9BDB 


JSR 

01430 

5042 

E6 

24 


LDB 

01440 

5044 

CB 

05 


ADDB 

01450 

5046 

6F 

A5 


CLR 

01460 

5048 

30 

24 


LE：：AX 

01470 

504 A 

BO 

9BDB 


JSR 

0 1480 




¥r 


014^0 




* def 

PFkey 

01 500 




簧 


CU510 

5040 

30 

BD 


LEAX 

01520 

5051 

PD 

9PDB 


JSR 

0 1 530 

5054 

BD 

DB07 


JSR 

01540 

5057 

30 

01 


LEAX 

01550 

5059 




LEAU 

01560 

505 B 

5F 



CLRB 

0 i 570 

505C 

A6 

80 

DO1 

LDA 

01580 

505 E 


09 3069 


BEQ 

01590 

5060 

フ 

CO 


STA 

01 600 

5062 

Cl 

OF 


CMPB 

01610 

5064 

27 

03 5069 


BEQ 

01 620 

5066 

5C 



INCB 

0] 630 

5067 

2 〇 

F3 505C 


BRA 


¢5000 

青 

number 

MESI-1,PCR output message 
MESSAG 

KEYIN keyinput 

# # 0 test f 0 、 . す 

END 

# f 9 

END 

OUT echoback 

#0 

GETPF 

#10 10 ' 
st r i ng 

SUDCOM,PCR 

3, Y set PFkey no. 

#^2B subsys - command 6ETPF 

2,Y set command 

RGB, PCR 

#¢11 bios SUBIN 

,X 

2 , X set command addr . 

#20 set command 1enqth 

4, X 
6,X 

t BIOS! command executoin 

MES2-1,PCR output messaae 
MESSAG 

4,Y output PFkey string 

#5 



MEBSAB 
st r i nq 


MES3—1,PCR output men sage 
MESSAG 


LINEIN 

line input 


1,X 

X = X +1:X=sV ring tap 

add 

5, Y 

PFkey str i nq area 
counter 仁 leer 

tap 

,X + 

set PFkey string 


DO 2 
， U+ 

end ot string ? 


林 15 

DO 2 

over 15 chr 7 



DO1 


01640 

5069 

E7 

24 

D02 

STEf 

4, Y 

set F'Fkey string length 

01650 

506 B 

86 

2A 


し DA 

#$2A 

subsys—command DEFPF 

01660 

506 D 

A7 

フつ 


STA 

2,V 

set command 

01670 

506F 

30 

80 004 F 


LEAX 

RCB.PCR 


01680 

5073 

B6 

10 


し DA 

林生 10 

bios SUBOUT 

01690 

5075 

A 7 

84 


STA 

,x 


01700 

50 フ 7 

lOAF 

02 


STY 

2, X 

set command addr. 

01710 

507 A 

CC 

0014 


LDD 

林 20 

set command length 

01720 

507 D 

ED 

04 


STD 

4, X 


01730 

507 F 

AL) 

9F FBFA 


JSR 

[BIOS] 

command BXBC.ut i on 

01740 

5003 

16 

FF7A 5000 


LBRA 

PFNUM 


01750 




脊 




01760 




* end 

of execution 


01770 








01 780 

5086 

39 


END 

RTS 



01790 




脊 




01300 




* messages 



OiBlO 








01 巳 20 

5037 


ODOA 

flEBl 

FDB 

¢000 A 


01830 

5089 


50 


FCC 

PFkey 

number (i9 ， 0 > = J 
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01840 

509 F 

00 


FCB 

0 


0 )850 

50 AO 

ODOA 

MES2 

FDB 

4 ODOA 


01B60 

50A2 

20 


FCC 

J String デ 


01870 

50 A E 

11 


FCB 

$U,$07,0 set i 

Field top 

01880 

50 B1 

ODOA 

MES3 

FDB 

壬 ODOA 


01890 

50B3 

4E 


FCC 

"New String =' 


01 900 

50BF 

11 


FCB 

¢3 1 ,¢07,0 set. — 

field top 

0 i 910 







01920 



サ warkinq ar 

ea 


0 i 930 



* 




0 1940 

^nc? 

0008 

RGB 

RMS 

a 


01950 

50CA 

00 14 

9UBCGM 

RMB 

20 


01 960 







01970 


5000 


END 

START 


TOTAL 

ERRORS 

00000——00000 






TOTAL WARNINGS 00000—00000 


PROGRAM BEGIN 
PROGRAM END 
PROGRAM ENTRY 


ADDR = 5 (J U0 
ADDR=50DD 
ADDR^OOO 


Ready 

ec 5000 

PFkev^ number (1" 9 いこ〇二 1 
Strinq =AUTO 

New String -abcdef 12345 abcdef 


PFkEy number 



key 1 i st 




PF 1 

abcde-f 

12345 abed 

PF2 

LIST 


PF3 

RUN 


PF4 

com 


- PF5 

しし IS 丁 


PF6 

LOAD 


PF7 

SAVE* 1 


PF8 

?DATE$ 

,T IMES 

PF9 

SCREEN 7,7 

PF10 

HARDC 



Ready 

HARDC 
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SUB ： I NTCT L 一 PF キー割り込み定義 _ 


機 能プログラマブル•ファンクションキーを割り込み用に定義します. 


ハフメータ 


0 


4 


$00 


()0 


$2 C 


ICH 


ICL 


コマン ドコード 

割り込み制御フラグ 


ICH ICL 


ビット 

1 

0 

7 

6 

5 

4 

3 

2 

1 

0 


PF 10： 

PF 9 | 


PF 8 

PF 7 

PF 6 

PF 5 

PF 4 

PF 3 

PF 2 

PF 1 


’1’になっているビットの PF キーが割り込み用に定義されます.割り込み用 
に定義された PF キーが 押されるとサブ CPU はメイン CPU に対して F I RQ 
をかけます. 


復帰情報丨エラーは生じません • 

1^1割り込み用に設定されている場合には， PF キーを押しても文字列 
は発生しません. 

BAS IC の管理下であった場合には，$ 5 B 1に割り込み処理のアドレスを 
書いておけば， B A S I C 内からそこへジャンプします （$ 5 B 1に$ 0 0 0 0 
が書かれている場合にはジャンプしません.通常はこの形になっています）.この 
際 B レジスタには， PF キー番号が入っています.しかしこの場合注意する必 
要があるのは,.メイン CPU には F I RQ がかかりますが， BASIC 内部で全 
レジスタを退避し， E フラグを1にしているので，ユーザーは見かけ上 I RQ が 
かかったのと同じ状態で取り扱えるという点です（すなわち， S レジスタをのぞ 
いて破壊してもかまいません）. 

サンプル] PF キーを押すたびにメッセージを出力します. PF 10で終了し 
ます. 
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PA6E 

OO1( 

■， 

) 





01 000 



# 





01 0 I 0 



餐 PFkey interrupt sampIe 


01020 



脊 





01030 




OPT 

H,NDS 

f N06,N00 f PAGE=255 


01040 


9BDB 

MESSftG 

EQU 

S9BDB 

output from (X +1) 

till 

01 050 


8615 

D100UT 

EE!U 

*B615 

output D reg in decimal 

01060 


FBFA 

BIOS 

EQU 

$FBFA 

bi os (e：< tend-i ndi r 

^ect ) 

01070 



餐 





01 080 

5000 



ORG 

¢5000 



01 090 


5000 

START 

EQU 

脊 



oi ioo 



★ 





01110 



* set 

interrupt F_F 1 

..PFIO 



01120 
01130 
on 40 
Ol150 
01160 
01170 


0 i 260 
01270 
01280 


01380 

01390 

01400 


01470 
01480 
01490 
01500 
01510 
01520 
01530 


5000 CC 
5003 BD 


03 FF 

3D 5042 


LDD 

BSR 

长 

箐 vector set 


排 •/•OOOOOO 11111111 
INTC 了し 


011 BO 

5005 

1A 

40 


ORCC 

#7.01 000000 FIRQ mask 

01190 

5007 

30 

8D 

0010 

し EAX 

FIRQ,PCR set vector 

01 200 

50 OB 

BF 

05B1 

STX 

*5Bi 

0121() 

50 OE 

1C 

BF 


ANDCC 

轉 _/_iOilUi：l FIRQ enable 

01 220 

5010 

6F 

8D 

008 1 

CLR 

F し AS,PCR clear flag 

01230 

5014 

6D 

8D 

007 D LOOP 

TST 

FLAG,PCR PFI0 pressed 

01240 

5018 

27 

FA 

5014 

BEQ 

LDQF' no ,1 0 op ! f ! 

01 250 

501A 

39 



RTS 

yes,end ewe 


菁 interrupt routine 

箐 


01 290 

50IB 

34 

04 FIRQ 

PSHS 

B 

save PFkey no. 

01 300 

501D 

30 

8D 003 C 

LEAX 

MES-I, 

PCR output message 

01310 

5021 

BD 

9BDB 

JSR 

MESSAG 


01320 

5024 

E6 

E4 

し DB 


10 ad PFkey__no» 

01330 

5026 

4F 


CLRA 



01340 

5027 

BD 

Bfcl5 

JSR 

D100UT 

output PFkey—ncu 

01350 

502A 


04 

PULS 

B 

PFkey_no, come b 

01360 

502 C 

Cl 

OA 

CMPB 

#10 

PFIO pressed ? 

01370 

502 E 

26 

11 504 i 

BNE 

FIR001 

no. 


* vector reset 

簧 


01410 

5030 

IA 

40 

ORCC 

01420 

5032 

CC 

0000 

LDD 

01 430 

5035 

FD 

05B1 

STD 

01440 

5038 

CC 

0000 

LDD 

01450 

503B 

8D 

05 5042 

BSR 

01460 

5030 

6C 

8D 0054 

INC 


5041 3B 


#X0 1000000 FIRQ mask 
林 0 reset vector 

$5B1 

#7.0000000000000000 PF1.•PFIO reset 
INTCT し 

F し AG,PCR PFIO key flag on ! 


* return -from interrupt 

贅 

FIRQ01 RTI 

* 

普 subrout i ne; sybsys-command INTCT し eweciit i on 
* 


01540 

5042 

31 

8 匚 57 

IMTCTL し EAY 

<SUBCQM, 

PCR 

01550 

5045 

ED 

23 

STD 

3 t Y 

set F'Fkey -f 1 ags 

01 560 

5047 

30 

8C 4C 

LEAX 

<RCB,PCR 

01570 

504A 

36 

10 

し DA 

#¢10 

bios request SUBOUT 

01580 

504C 

A 7 

34 

STA 



01590 

504E 

1OAF 

02 

STY 

2,X 


01600 

5051 

CC 

0005 

LDD 

#5 

set length 

01610 

5054 

ED 

04 

STD 

4,X 


01620 

5056 

B6 

2C 

LDA 

#$2C 

subsys-command INTCTL 

01 630 

5058 

A7 

22 

STA 

2, Y 


01640 

SOSA 

6E 

9F FBFA 

JMP 

[BIOS] 

call b i as return 


01650 
01660 
OJ 670 
01680 
01690 
■ ! PF : k 
01 700 


505E 

!j060 

ey No 
5094 


ODOA 

50 

00 


黄 message 
* 

MES FDB 

FCC 

FCB 


^ODOA 

f FToqramab1e function key was pressed 
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0 1710 
01 720 
01730 
01740 

5095 

00 

簧 

サ work 

并 

FLAG 

i ng 

FCB 

area 

0 

PFkey pressed f1aq 

01 750 

5096 

0006 

RCB 

RMB 

6 


01760 

509 C 

0005 

SUBC0M 

RMB 

5 


01770 

01780 


5000 

* 

END 

START 



TOTAL ERRORS 00000——00000 
TOTAL WARNINGS 00000—00000 

PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR-50A0 
PROGRAM ENTRY ADDR=5000 


eKGC ち H 5000 

Proqr amabl e function key was pressed !!! PFJ：:ey No * =1 
Proqramab1e function key was pressed 丨！！ PFkey No.=5 
Proqr amabl e -f unc 1 1 on key was pressed ! ! ! PF key No. =5 

Proqramab1e function key was pressed f!! PFkey No-=7 

Froqr amable i unction key was pressed f !! PFkey Ha .=9 

Programab1e functian key was pressed 1 ! t PFkey No*=10 

Ready 
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SUB：SETiME 


タイマ設定 一 



4 


8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


タイマのレジスタに値を設定します. 


$00 


$00 


$3 D 一 

——コマンドコード 

RS — 

設定レジスタ選択フラダ（下図） 

TC 一 

—制御レジスタ 

時 

分 

T 1 一 

秒 

一 2 4 時間時計レジスタ 

20 ms 


T 1 I 

一割り込み予約時刻レジスタ 

T 2 

〇- 

—— 20 ms テクリメントカウンタレジスタ 

T 2 D 

一再設定値レジスタ 

■% _ '%* 1 M « 


ビット4 3 2 1 



RS :設定レジスタ選択フラグ 


T 2 D 

T 2 丨 

Til 

T 1 

TC 


ビットが，1’のレジスタのみが，この コマン ドによって設定されます. 

’0’のレジスタは，現在の値が保持されます. 

復帰情報 1エラーは生じません. 

解 _ 説 |設定レジスタとして選択しなかったレジスタの所は，パラメー タと 

して与える必要はありません. 
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次に，各レジスタのレジスタの構成と役割を示します. 
• T C :制御レジスタ 
ビット7 6 5 4 3 2 1 0 

>aX[xlXi> _ ② [①， 


① タイマ割り込みイネイプルフラグ （1 :イネイブル） 

T 1がカウントアップされた場合このフラグが ON で，かつ ， TltTl 
I が等しければ，タイマ割り込みをメイン C PU にかけます （ FIRQ ). 

② インターバルタイマ割り込みイネイブルフラグ （1 :イネイブル） 

T 2 をカウントダウンして0となった場合に，このフラグが ON であれば 
インターバルタイマ割り込みをメイン CPU にかけます （F I RQ ). 

③ インターバルワンショットフラグ （1 :ワンショット） 

T 2をカウントダウンして0となった場合に，このフラグが ON であれば 
TC のビット1を’0’にします.これは，インターバル割り込みを継続して 
かけるか，1回だけで停止にするかを設定するフラグで，このフラグにより 
下図のような違いが生じます（ただし，このフラグの ON , OFF にかかわ 
らず ， T 2が0となると ， T 2 D の内容を T 2に設定します） 


TC bit 2 二’ 1 ’ 
TC bit 2二’0’ 

籲：割り込み発生 



④〇時割り込みイネイブルフラグ （ 1:イネイブル） 

T 1をカウントアップされた時，このフラグが ON で，かつ，丁1が0時 
を示していれば，0 [味割り込みをメイン C PU にかけます （F I RQ ). 


# T 1： 2 4時間時計レジスタ 


T 1 0 

時 卜 

― (0-23) 

1 

分 

— (0 〜 59) 

2 

秒 - 

— (0 〜 59) 

3 

20 ms £> — 

— (0 〜 49) 


このレジスタは， 2 0 m s ごとに 

カウントアップします.秒，分，時 
へのくり上げは自動的に行なわれま 

す. 

カウントアップしてこのレジスタ 
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のすベての値が 0 (0 時ちようど）を示した時に， TC レジスタの bit 3 (0 時割 
り込みフラグ）が0 N ならば0時割り込みを発生します. 


• T 1 I :割り込み予約時刻レジスタ 


T 1 I 

0 

時 ^ 

— (0 〜 23) 

このレジスタは，タイマ割り込み 


1 

分 〇— 

— (0 〜59〉 

を発生させる時刻を示すレジスタで 


2 

秒 

(0 〜 59) 

す.カウントアップ等は行なわれず 


3 

20 ms °~ 

i 

:— (0 〜 49) 

T 1と比較されるだけです. 


• T 2 : 2 0 ms デクリメントカウンタレジスタ （3 2ビット） 

MSB LSB 


T 2 0 ! 1 2 3 丨 

ビット7 07 07 07 0 

2 Oms ごとにカウントダウンされます.カウントダウンして〇となった時は, 
TC のフラグによって割り込みを発生させます.また同時に ， T 2 D の値によっ 
て再設定され，カウントダウンを続行します. 


• T 2 D ：再設定値レジスタ （3 2ビット） 


MSB 


LSB 


T 2 D 



ビット7 07 07 07 


このレジスタは， T 2 がカウントダウンされ〇となったときに， T 2 に再設定 
される値を示します.このレジスタは，カウントダウン等は行なわれません. 

これらのタイマによる割り込みはすべて F I RQ で行なわれます.そのため， 
ユーザーは F I RQ を生じた要因はなにかを，共有 RAM の ステータスを 調べ 
ることにより識別する必要があります •（F I RQ はタイマ関係の他に ， BRE 
AK キー， PF キーに よっても 生じます） • またユーザーのルーチンで割り込みを 
処理したい場合には ， F I RQ の割り込みベクトル （$ FFF 6， 7〉を書きか 
える必要があります. 
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SUB ： GET I ME 


ータイマ読み取り一 




タイマのレジスタをすべて読み取ります. 



コマンドコード 


復帰情報 


0 

1 

2 

3 

$00 


4 

TC — 

—制御レジスタ 

5〜8 

T 1 ” 

— 24時間時計レジスタ 

9〜12 

T 1 I — 

—割り込み予約時刻レジスタ 

13〜16 

T 2 — 

一 20 ms デクリメントレジスタ 

17〜20 

T 2 D °~ 

—再設定値レジスタ 


各レジスタの構成については s ET I ME を御參照下さい 


サンブル 


PAGE 

001 ( 


, ) 





01000 




菁 




01010 




★ SUBSYSTEM 

GET!ME ^ 

SETIME 

01020 




■N- 




01030 





□F'T 

M,NOS, 

P=255 f NOD.NDG 

01040 



FBFA 

BIOS 

EQU 

$FBFA 

b i os t e >： tend — i nd i rect 

01050 



9BDB 

MESSAG 

EQU 

«9BDB 

output from ( X +1)til 

01060 



DOSE 

OUT 

EDU 

$D08E 

one character output 

01070 



DB54 

KEY IN 

EDU 

¢0654 

key!nput th wait 

01080 




箐 




01090 

5000 




ORG 

¢5000 


01100 



5000 

START 

EQU 

箦 


01110 




黄 




01120 




* get 

t i mer 



01130 




* 




01140 

5000 

31 

BD 0003 

BETIME 

し EAY 

SUBCOM 

,PCR 

01130 

5004 

36 

3E 


し DA 

林朱 3E 

subsys—command GET IME 

01160 

5006 

A7 



STA 

2, Y 

set command 

01170 

5008 

30 

BD 00C3 


LEAK 

RCB,PCR 

01180 

500C 

86 

11 


LDA 

#¢11 

Dios request SUBIN 

01190 

500 E 

A7 

84 


STA 



01200 

5010 

10AF 

02 


STY 

2,X 

set command addr. 






01210 

5013 

CC 

00 OF 



し DD 

#15 

set command length 

01220 

5016 

ED 

04 



STD 




01230 

501 B 

ED 

06 



STD 

6,X 



01240 

501A 

AD 

9F FBFA 


JSR 

[BIDS] 

command e;<ecution 

01250 

50IE 

30 

BD 0092 


LEAX 

MESi - i ， 

PCR output message 

01 260 

5022 

BD 

9BDB 



JSR 

HESSAB 



01270 

5025 

C6 

05 



LDB 

林 5 

counter 


01280 

5027 

A6 

A5 


GO! 

LDA 

B, V 



01290 

5029 

34 

04 



PSHS 

B 



01 300 

502 B 

5F 




CLRB 


Breg=Areg / 10 


01310 

502 C 

80 

OA 


BO 2 

SUBfi 

梓 10 

Areg-Areg MOD 

10 

01320 

502 E 

25 

03 

5033 


BCS 

607 



01330 

50 30 

5C 




INCB 




01 340 

5031 

20 

F9 

502C 


BRA 

GO 2 



01 350 

5033 

8E 

OA 


G03 

ADDA 

#to 



01 360 

5035 

34 

02 



PSHS 

A 

output in decimal 

01370 

5037 

IF 

98 



TFR 

B,A 



01 380 

5039 

8B 

30 



ADDA 

林 ’ 0 



01390 

5038 

BD 

DO BE 



JSR 

□UT 



01 400 

503 E 

35 

02 



PULS 

A 



01410 

5040 

BB 

30 



ADDA 

♦TO 



01 420 

5042 

BD 

DOSE 



JSR 

OUT 



01430 

5045 

ブ cr 

•一 ■ 

04 



PULS 

B 



01440 

5047 

5C 




INCB 


inc counter 


01450 

5048 

Cl 

09 



CHPB 

#9 

end ? 


01460 

504ft 

pi ny ve-m 

jL / 

07 

5053 


BEQ 

SETIME 

yes, 


01470 

504 C 

8fc 

3 A 



し DA 

tr: 

no,output # : 


01480 

504 E 

BD 

DOSE 



JSR 

OUT 



01490 

5051 

20 

LM 

5027 


BRA 

60 1 



01 500 





箦 





01510 





* set 

t i mer 




01320 





* 





01530 

5053 

30 

BD 006 A 

SETIME 

LEAX 

MES2-1, 

PCR output message 

01 540 

5057 

BD 

9BDB 



JSR 

HE53AB 



01550 

505 A 

C6 

05 



LDB 

衿 5 

counter 


01560 

505(: 

34 

04 


SOI 

PSHS 

B 



01 570 

505 E 

BD 

DB54 



JSR 

KEY IN 

d&c imal num- 

key i n 

01 580 

5061 

81 

30 



CMPA 

# - 0 

test #0 、 • ず 


01 590 

5063 

25 

30 

5095 


BCS 

S02 



01600. 

5065 

81 

39 



CMPA 

林 J 



01610 

5067 

ム l 

2C 

5095 


BHI 

S02 



01620 

5069 

BD 

DOSE 



JSR 

OUT 

echaback 


01 630 

506 C 

80 

30 



SUBA 

# * 0 



01 640 

^06E 

C6 

OA 



LDB 

#10 

Ar Ar 10 


01650 

5070 

3D 




MU し 




0 1660 

5071 

34 

04 



PSHS 

B 



01670 

5073 

BD 

DB54 



JSR 

KEVIN 

declmal n u m , 

keyi n 

01 680 

5076 

BJ 

30 



CMPA 

tt J 0 

test ( ン " t( 9 ^ 



01690 

5078 

2b 

ID 

5097 


BCS 

よ' 昼纪 

bUo 


01 700 

507 A 

81 

39 



CMPA 

# f 9 


01710 

507 C 

勺つ 

19 

5097 


BHI 

503 


01720 

507 E 

BD 

D08E 



JSR 

OUT 

echobac k 

01 730 

5091 

80 

30 



SUBA 

# f 0 


01740 

5083 

ftB 

EO 



ADDA 

,S+ 

get number 0" 99 in Areg 

01750 

5035 

35 

04 



PULS 

B 


01760 

5087 

A フ 

AS 



STA 

B,Y 

set number 

01770 

5089 

5C 




INCB 


inc counter 

01780 

508 A 

Cl 

09 



CMFB 

林 9 

end ? 

01790 

50BC - 

27 

OB 

5099 


BEQ 

S04 

yes 

01 800 

508 E 

86 

3A 



LDA 

# J : 

no , output J : 

01810 

5090 

BD 

D08E 



JSR 

OUT 


01820 

5093 

20 

匚 7 

S05C 


BRA 

SOI 


01930 

5095 

35 

臼 4 


S02 

PULS 

B,PC 

end of axecution 

0 IS 40 

5097 

35 

86 


SO 3 

PULS 

. ft , B , PC 


0 1850 





箦 




01860 





^ ex ecu te SET IME 


01870 









01880 

5099 

CX 

3002 


SO 4 

し DD 

#$3D02 

^Ltbsys-CDm , SET I ME 

01890 

509 C 

ED 




STD 

2, Y 

む set only 2411 gut ti mer 

01 900 

509 E 

D 

8D 002 D 


LEAX 

RGB,PCR 


01910 

50A2 

3 OAF 

02 



STY 

2,X 


01920 

50 A 5 

86 

10 



LDA 

#¢10 

bios SUBQUT 

01 930 

50A7 

A7 

84 



STA 

,X 


01 940 

50A9 

CC 

00 OF 



し DD 

#15 

set command length 
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01950 

50AC: 

ED 

04 


STD 

4, X 

Ol960 

50AE 

AD 

9F FBFA 


JBR 

[E* I OS 3 command b )： eci.it i on 

01970 
0 1980 

50B2 

16 

FF4B 5000 

* 

LBRA 

GETIME 

01990 




斧 messages 


02000 




箐 



02010 

5085 


C-DOA 

MES1 

FDB 

$ODOA 

02020 

5 OB 7 


20 


FCC 

^ TIME ^ 

02030 

50C1 


00 


FCB 

0 

02040 

50C2 


ODOA 

MES2 

FDB 

壬 ODOA 

02050 

50C4 


4E 


FCC 

# NEW TIME = # 

02060 

02070 

50CE 


00 

簧 

FCB 

0 

02030 




* working area 

02090 







02100 

50CF 


0000 

RGB 

RMB 

B 

15 

02110 

5007 


00 OF 

SUBCDM 

RMB 

02120 

02130 



5000 

簧 

END 

START 


了 OTA し ERRORS 00000--00000 
TOTAL WARNINGS 〇〇〇〇〇 —— 〇〇 000 

PRO0RAN BEGIN ADDR=5000 
PROGRAM END ADDR-50E5 
PROGRAM ENTRY ADDR=5000 


12 ： 34 ： 56 11 

Ready 

©x 卜 SiH 5000 

TIME =12:35:05:16 
NEW TIME ： =12: 001 00: 00 
TIME =12:00:00:00 
NEW TIME = 

Ready 
? t i 

12:00:08 


Read' 



SUB ： CONT 一継続データ入出力一 


4出力の場合 ► 

機 能 I サブシステムへのコマンド出力のときに，一度に転送しきれない分 
を転送します. 

I パラメータ 


0 i 

1 

$00 



S , H 

—継続フラグ (bit 7) 

2 

$64 一 

—コマンドコード 

3 

N — 

—転送バイト数 （ 1〜120) 

4 ! 

( ^ 

DATA 

—転送 データ 

) ^ 

3 +N 


taw# 


復帰情報 I 

0 I E 〇—|—エラーコード 


一解 —説丨 サブシステムへコマンドを送出する場合，共有 RAM が 12 8 バイ 
卜しかないことにより，コマンドのデータを一度に送出できない場合があります. 
この場合，最初にコマンドを送出するときに継続フラグを’1’にしてコマンドを 
送出して，サブシステムにまだコマンドが終了しないことを通知します.その後 
にこのコマンドで，残りのデータを送出します.さらに，未転送分が残る場合は 
このコマンドを送る際に，継続フラグを’1，にすることにより続けてこのコマン 
ドを送出してデータを送る必要があります. 

この コマンドを 使用する可能性のある コマンドは， PUT, GET, PCBL 
K2 ， PGBLK1 ， PGBLK2 の 6 つです. 


◄入力の場合 ► 


機 能|サブシステムから返されるデータが一度に転送されなかった時，残 
りのデータの転送を要求します. 




コマントコ ー ト 
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復帰情報 



継続フラグ (bit 7) 

転送バイト数 (1 〜 123) 
転送 データ 


_解_説」サブシステムからデータが返される時に，一度に転送しきれない 
場合サブシステムは継続フラグを’1’にしてデータを返します.継続フラグが’1’ 
の時は，まだデータが続くことを意味しているので，このコマンドで残りのデー 
夕を要求し，受け取ります.このときさらに継続フラグが’1’の場合は，まだデ 
一夕が残っているということなので，継続フラグが’0’ になるまでこの動作をく 
り返す必要があります. 

この コマンドを 使用する可能性のある コマンドは， GET ， GETC, GCB 
LK1, GCBLK2, GGBLK1, GGBLK2 の 6 つです. 

注）「ユーザーズマニュアルシステム仕様」， 2 — 71 ページの復帰情報の項の 
相対値に訂正箇所があります. 

誤 〇 正 

2,3 〇 2 

4 0 3 

5 〜 （ 4+N) 4 〜 （ 3+N) 
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S U B ： T E S T 


ーメンテナンス • コマンドー 


m . _ mj サブ cpu のメモリにデータを転送したり，サブ cpu に独自のプ 

ログラムを実行させるためのコマンドです. 

パラメータ 



コマント’ コー K 1 、 


メンテナンスコマンド列 


◄ メンテナンスコマンド列のフォーマット ► 
©M 0 V E コマンド ， 



このコマンドはサブ CPU のメモリ内で転送を行なうものです.転送元，転 
送先のアドレスはサブ CPU のアドレスで指定して下さい.転送バイト数を〇 
とすると6 5 5 3 6バイトで転送します. 

② JMP コマンド 

0 $ 92 °- JMP コマンド 

1 I! 

ジャンフ • アドレス 
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この コマンドは メ ンテナンスコマン ドの制御を指定した番地にうつすもので 
す.この場合も番地はサブ C PU の番地を指定して下さい. 

③ J S R コマンド 

0 1 $93 < H~JSR コマンド 

1 

〇 -サブ ル—チンアドレス 


このコマンドは，サブ C P U のメモリ上に存在するマシン語プログラム （R 0 
M 上のもの，あるいは， RAM 上に転送したもの）をサブ CPU で実行するコ 
マンドです.実行させるプログラムは RTS (または同等の命令）で終了する 
ものに限ります. 

④ EIMD コマンド 

0 $90 °- END コマンド 


このコマンドは，メンテナンスコマンド列の終了を指示するものです.メン 
テナンスコマンド列の最後に付加する必要があります. 

[M 説'！このコマンドはこれらのサブコマンドを用いて，サブ CPU のメモ 
リを直接参照するものです.これは「ユーザーズマニュアルシステム仕様 j には 
示されていません. 

FM 8 ではこのコマンドを使用する際，相対値3〜10にパスワード （’YAM 
AUCHI ’〉を設定する必要がありましたが ， FM 7ではパスワードの照合は行 
われないので設定する必要はありません. 


サンプル] ごく簡単なゲームです.マシン語サブルーチンは，このコマンドを 
使用してダウンスクロールを行っています. 


PAGE 001 ( 
1 〇\~_}〇 


01010 




* SUBSYSTEM TEST 



01020 




* 





〇 1 a 30 





OPT 

M,N0Q,N0S,N0G 

,P=255 

01040 



FBFA 

BIOS 

EDLJ 

tFBFA 

b i as 

{eKtend- i ndi r el: t 

01060 




菁 





OiO 70 

5 リ〇〇 




0R6 

$5000 



01 uso 



5000 

START 

EQU 

癸 



01 00 




着 





013 i 0 




* down 

^crol 1 




01 320 




* 





01 330 

5000 

33 

8D 0089 

DOWN 

LEAY 

SUBCOM, 

PCR 10 ad command addr * 

01340 


30 

8D 00 AD 


し EAX 

RGB,PCR 

1oad 

rcb addr . 

01350 

5008 

86 

11 


LDA 

#¢11 

b i as 

SUBIN 

0136U 

500 A 

A 7 

£34 


ST A 
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( 


01370 

50 OC 

1OAF 

02 


STY 

2,X 

set command addr, 

01380 

500 F 

CC 

002 S 

し DD 

#-SUBC~SUBCOM set command length 

01 390 

5012 

ED 

04 


STD 

4,X 


01 400 

5014 

CC 

0000 

し DD 

#0 

return 0 bytes 

01410 

5017 

ED 

06 


STD 

6 , K 


01420 

5019 

AD 

9F 

FBFA 

JSR 

CBI0S3 

command bx ecution 

01430 

50ID 

31 

8D 

0015 

LEAY 

!iESD,PCR 

load command addr. 

01440 

502 1 

30 

00 

009 (.i 

LEAX 

RCB,PCR 

1oad rcb addr - 

01450 

5025 

日 6 

10 


LDA 

#$10 

bios SUBOUT 

01 460 

5027 

A7 

84 


STA 

,x 


01470 

5029 

10AF 

02 


STY 

2,X 

set command addr• 

01480 

502C 

CC 

0057 

LDD 

#.HESD — MESD set command length 

01490 

502F 

ED 

04 


STD 

4,X 


01 500 

5031 

AC- 

9F 

FBFA 

JSR 

CBI0S3 

command execution 

01510 

5035 

39 



RTS 




01520 * 

01 * subsys-commands 

01540 # 


015B0 

5036 


00 

MESD 

FCB 

0,0- $03 ， 

-MESD—*-i command PUT 


01390 

503 A 


12 


FCB 

$12,0,0 

1ocate 0,0s ? spc:$ (80) 


01600 

503 D 


20 


FCC 

§ 



01610 



5080 

.HESD 

EQU 




01620 




篑 





01630 




* TEST 

command 




01640 




戈 





01650 



50BD 

SUBCQM 

EQU 

* 



01660 

50BD 


00 


FCB 

0,0 1 $3F 

command T EST 


01670 




* pass 

word FM8= # YAMAUCHI # ^ FM7= any string 

(1en=0) 

01680 

5090 


2ft 


FCC 

- 普 ##*# 簧 ** f 


01690 

5098 


93 


FCB 

¢93 

subcommand JSR 


01 700 

509^ 


D38F 


FDB 

*D380+PRas-SUBC0M address of sutacpu 

01710 

509 B 


90 


FCB 

$90 

subcommand END 


01720 




* 





0! 730 




* scroll down 

(executed by subcpu) 


01740 




菁 





01 750 



509 C 

PROG 

EQU 

长 



01760 

509 C 

B7 

D40A 


STA 

*D40A 

BUSY -flag on 


01770 

509 F 

FC 

DO IF 


LDD 

*D01F 

I oad vram o-f + set 


01 フ SO 

50 A 2 

B3 

D03B 


SUBD 

4D03B 

subtraction bytes of 1 

line 

01790 

50A5 

7D 

0409 


TST 

¢0409 

vram access f1aq on 


01 800 

50A8 

FD 

DO 1F 


STD 

¢00 IF 

set vram 〇 -f -f (work ) 


ぃ 1810 

50 A B 

FD 

D 40 E 


STD 

4D40E 

set vram of f set(I/□) 


01820 

50AE 

B7 

0409 


STA 

¢0409 

vram access flag of i 


01B3” 

50B1 

th 

# -U' 

D40A 


TST 

SD40A 

BUSY flag off 


01340 

50B4 

39 



RTS 


return from subroutine 


01850 




箐 





01 860 



50B5 

.SUBC 

EOU 

箐 



01870 




* 





01880 




w working area 



01890 




¥- 





01 900 

5 OB 5 


0006 

RCB 

RMB 

b 



0191 0 




* 





01920 



5000 


END 

START 




TOTAL ERRORS 00000 一一 00000 
TOTAL WARNINGS 00000--00000 

PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=50BA 
PROGRAM ENTRY ftDDR -5000 


100 # GAME PROGRAM for FM-7 

110 f (use subsystem TEST sample) 

120 " presented by H.Nakamura 

130 PLAY f, vI0 ir 

140 WIDTH 80,25 

150 DIM XI(24) ,X2(24) ,XX (24) 

160 SHIPLEFT=3:STAGE=1 : SCORE^O 

170 SHIP=40:DIR=0:XI^30+(STAGE MOD 7) : X2=50-(STAGE HDD 7) 

180 C し SsC0L0R7 

190 FOR P=0 TO 24; XI CP)^=-1: X2(P)=^0O: XX (P)=-1:NEXT : P^O 

200 LOCATE 0 ,0= PRINT STRINGS (X 1^1, tl X J, > ;TAB(X2) ; STR IN6$ (79-X2 , "X") ； 

210 FOR 1=0 TO 200 

220 CCJLDR 6 
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230 XX=-1:IF I MOD 15=0 THEN X X = X H-1 NT (RND# (X2-Xl-1))+1; LOCATE XX , 0: PR I NT ? 

240 CO し OR 7 

250 LOCAT E XI, 0: PRI NT " X f, ; : LOCATE X2 , Os PR I NT 
260 XI(F_)=X1: X2(P)=X2: XX < P) =XX : 1 

270 IF F 1 =25 THEN P=0 
280 COLOR 5 

290 し OCATE SHIP,24sPRINT lf 金 1 、 

300 A*=INKEY$ 

310 IF THEN DIR^-1 s GOTO 340 

320 IF ft$ = ,i, 6 t, THEN DIR= i: G0T0340 

330 IF A«< > #, THEN DIR=0 

340 SHIP^SHIP+DIR 

350 IF SHIP<0 THEN SHIP=0 

360 IF SHIP>79 THEN SHIP=79 

370 PP^P+i:IF PP-25 THEN FP^O 

380 IF SHIP<=X1(PP) OR SHIP>=X2(PP) THEN 4B0 

390 IF SHIP=XX (PP) THEN F ■し AY h cd 6U6ceg " : SCORE=SCORE+10 

400 EXEC S<H 500 0: down scroll 

410 S=INT<RND*3 卜 i 

420 X1=X1+S:IF X1<0 THEN X1=0;GOTO 440 
430 X2=X2+S:IF X2>79 THEN X2=79:X1=X1-S 
440 NEXT 

450 C0L0R4: LOCATE 25,10: PRINT"**** CLEAR STAGE 11 ; STAGE; 

460 P し AY**o61 i6ceqcegceqcegceg 11 : SC0RE=SC0RE+50: STAGE-STAGE^ 1 
470 GOTO 530 

480 COLORS: LOCATE 25,10: PRINT 11 #*** CLASH! ! 1 

490 SOUND 7, 紐 35:SOUND 8,^H10 

500 SOUND 6, を HIF:SOUND 12,8 

510 SOUND 13,0 

520 SHIPLEFT=SHIPLEFT-I 

530 CO し ORSsLCICATE 25,12: PRINT 11 scare SCORE 
540 IF SHIP し EFT=0 THEN 580 

550 LOCATE 25,14: PRINT" ship left : 11 ;SHIPLEFT 
560 FOR 1=0 TO 5000: NE X T 
570 GOTO 170 

580 C □し QR2: し DCATE 25,16: PR INTGAME OVER 
590 FOR 1=0 TO 2000:NEXT 

600 FOR 1=50 TO 30STEP — i : PLAY_ r 132n= I ; " : NEXT 

610 FOR 1=0 TO 200 0;NEXT 

620 PRINT CHR* (27XHR$ (&H39) 

630 CDL0R7 

640 LOCATE 0,0:END 
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Subroutines 



本章は ， F — BAS I C Ver 3.0 の ROM 上にある各種のルーチンのうち，数 
値演算関係以外のルーチンで，一般ユーザーの利用頻度が高いと思われるものを 
選び出し，解説を加えたものです， 

◄各項目のみかた ► 

各ルーチンは用途別に分類してあります， 

アドレス 各ル ー チンのエントリポイントを示します. 

レジスタ 1各ルーチンの実行後，内容が変化する可能性のあるレジスタ名を略 
号で示します.したがって，各ル ー チンを使用するにあたって保存したいレジス 
夕が含まれている場合には， ユーザーの 側でレジスタの退避が必要です. 


能， I 解 


iM _ sij , I サンプル 1 , 「パラメータ I ，I 復帰情報 |については 

bios の章と同様です.ただし，パラメータ，復帰情報は必要のある場合だけ 
記述します. 


なお，パラメータの値で特記しませんが，この章のルーチンをコールするに当 
て， DP レジスタは0である必要があります. 



$ F E 0 0 ： システムリセ ッ ト 


嫌 

能 


ァ 

ドレス 


リセットボタンが押されたのと同様の状況となります. 
$ F E 0 0 


解 脱 I FM 7 のリセットボタンが押されると， CPU はこの番地へジャン 
プしてきますので，ユーザーがここへジャンプすると，リセットキーが押された 
のと同様の状況になります.ただし，このとき BREAK キーが押された状態で 
あれば BAS I C がホットスタート ( Abort ) します. 

こ の ルーチ ンの 处现をフロ ー チャ ー トにホします.（次凰） 


$ 8 4 8 B : BAS I C コールドスタート 



バラ メータ 


B A S i C をコールドスタートします. 

A レジスタ—モード ROM モード= 0 

D I S 1<モ~ドキ〇 


X レジスタ — イニシャライズルーチンのエントリアドレス 

(D I S K モードを指定した場合のみ） 

アドレス1$ 8 4 8 8 


解 説 BAS I C を指定したモードでコールドスタートします_ DISK モー 
ドを要求する場合には，あらかじめ D 0 S が R AM 上にロードされている必要があ 
ります. 

このルーチンは，ワークエリア， I /〇の初期化 ， Free Area の0クリア等を 
行い ， B A S I C のコマンドレベルへ制御を移します. 
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チンの処理 



FEOO 




r m 


ROM モード コール ドスタ 








8684 

9BDB 

DB54 

5000 


* 

^ basic hot 

黃 

DPT 

ABORT EQU 
riESSAG EQU 
KEVIN EQU 

□RG 

START EDU 


st ar t 

( 丰 8684) 

M, N00 ,NOS,NQG, F ヒ 255 


¢8684 

^ 9 BDB 

$DB54 

¢5000 

菁 


basic hot start 


keyinput 


SD 0026 

し EAX 

MES-1,FCR 

9BDB 

JSR 

MESSAG 


DB54 

LOOP JSR 

KEY IN 


72 

CMPA 

# r 


15 5023 

BEQ 

RET 


68 

CMF.A 

# # h 


F5 5007 

BNE 

菁 

し D0P 



* basic hot 

簧 

start (Abort) 

8D 003 A 

し EAX 

MEBHOT- 

1,F_CR 

9BDB 

JSR 

MEBSAG 


FFFF 

し DX 

#*FFFF 


IF 

WAIT LEAX 


wait: 

FC 501 C 

BNE 

WAIT 


8684 

JMP 

★ 

* return to 

篑 

ABORT 

basic 


3D 003 C 

RET LEAX 

HESRET- 

1,PCR 

9BDE 

JSR 

RTS 

箐 

MESSAG 


ODOft 

HE5 FDB 

樂 ODOA 


20 

FCC 

J Efasi c 

hot 

00 

FCB 

0 



a moment 


(h/r) :■ 


42 


NE5H0T F 匚 C 


'Basic hot start 


サンプル 


PAGE 00 1.( 


0 i 000 


01010 


01 020 


010 30 


01040 


01 050 


01060 


01070 

5000 

01080 


01 090 


o i 1 00 

5000 

01 J 10 

5004 

01120 

5007 

01130 

50 OA 

01140 

50 OC 

01150 

50 OE 

01160 

5010 

01 170 


180 


01190 


01200 

5012 

01210 

5016 

01220 

5019 

01250 

501C 

01260 

50IE 

01270 

5020 

01280 


01290 


01 300 


01310 

5023 

0 1320 

5027 

01330 

502 A 

01340 


01350 

50 2 B 

01360 

502 D 

01370 

5050 

01 380 

505 1 


$ 8 6 8 4： BAS I C ホットスタート 


_ mj B AS i C のホットスタートを行います.この際， RAM 上のプログ 

ラムは保存されます， 

アドレス I $ 8 6 8 4 

解 説 BAS 1 C のホットスタートを行います . RAM 上のプログラムは 
クリアされませんが，画面表尔は初期化されます （BAS I C の変数も保存され 
ます）. 

このルーチンでは，コールに当って D P レジスタの値は0であることを必要 
としません. 

またこのルーチンは，ユーザーによつてウォームスタート （「ユーザー ズ マニュ 

アルシステム解説」 10. 3参照〉がかけられたのと同様の動作をし ， F — BAS I C 

の コマン ドレべルにもどり ます. 


O D D 17160 D E C-6E 〇 D 9 
3 BBS2823B832 7 3 B 3 
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01 390 

5063 

00 

FCB 

0 

01 400 

5064 

72 MESRET 

FCC 

'return to basi 

U1410 

5076 

CH：> 

FCB 

U 

01420 


* 



01 430 


5000 

END 

START 

TOTAL 

ERRORS 00000—)0000 



TOTAL 

WARNINGS 

nnono--onnnn 




PROGRAM BEGIN ADDR=5000 
PROGRAM END ftDDR=5076 
PROGRAM ENTRY ADDR=5000 


exec 5000 


Bas i c 
Ready 

hot 

start or 

return 

(h /r) 

7 

return to 

basic !! 

eKec 








Basic 

hot 

start or 

return 

(h/r ) 

フ 

Basic hot 

start ?! 


Abor t 
Ready 




$ D 6 7 8 : A BO RT テスト 


機 mj BREA K キーが押されたかをチェックし，押されていた場合には， 
’ Abort ’ を出力後 ， B AS I C のコマンドレべルへもどります. 

ーアドレス] $ 0 6 7 8 

_ レジスタ| BREAK キーか 1甲されていなかった場合には CC のみ破壊し ， B 
RE A K キ"•が押されていた場合にはもどりません. 


BREAK キーが押されたかどうかをチェックし，押されていた場 
合には” Abort ” のメッセージを出力した後 ， B A S I C のコマンドレベルへ制 

を移します. 

ここで注意しなければならないのは，この ABORT テストは$313の内容 
を参照して実行されている点です.これは， BREAK キーが押されると，メイ 
ン CPU に F I RQ がかかり，$ 313に$ 4 0が代入されることを利用したも 
のです.よって，このルーチンが呼ばれた時に ， B RE AK キーをチェックする 
わけではありません. 

以上のことは ， BAC 1 C プロダララム実行中の BREAK キー入力にも当 
てはまります.すなわち，ユーザーが BREAK キーを押しても，その時すぐに B 
REAK がかかるのではなく $ 313に$ 4 0が代入されるだけで ， BREAK 
がかかるのは BAS IC 内部で$ 313の内容を調べた時になります. 

また， BREAK キーの処理は ， F I RQ を利用しているため，ユーザーによ 
って，又は ， BAS I C 内部で F I RQ がマスクされている場合には ， BREA 
K キーが押されても，無視されます. 


サンプル 


PAGE 

001 < 


, » 




01000 




簧 



01010 




* basic 

abor t 

test 

01020 




箐 



01030 





OPT 

li,NOS, N06 T NOD,PAGE=255 

01040 



9BDB 

MESSAB 

EQU 

*9BDB output troni(X 

01050 



0678 

ABDRTT 

EQU 

$D678 abort test 

01080 




箐 



01090 

5000 




ORG 

$5000 

01100 



5000 

START 

EDO 


01110 




* 



01120 




* output message ?< 1oop until Break 

01130 




黃 



01140 

5000 

30 

SD 0007 


LEAX 

MES-1,PCR 

OH 50 

5004 

BD 

9BDB 


JSR 

MESSAG 

01160 

5007 

BD 

D67B 

LOOP 

JSR 

ABORT! ** abort test 


till 0 
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01170 

01180 

50 0A 20 

FB 5007 

BRA 

箐 

LOOP 

01190 



ヰ message 


01 200 



* 


01210 

50 OC 

ODOA 

MES FDB 

*ODOA 

01220 

30 OE 

/o 

FCC 

fpush BREAK key ! ! ! 

01 230 

5021 

00 

FCB 

0 

01240 



朞 


01250 


… 3000 •… 

END 

START 


TOTAL ERRORS 00000 —一〇〇〇〇〇 
TOTAL WARNINGS 00000 ——000_:>0 

PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR-502I 
PROGRAM ENTRY ADDF:=5000 


e^ec ?(H 5000 

push BREAK key 

Abort 

Ready 
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$ 8 F E1 : BREAK エントリ 


機 能 | 実行中の F — BAS I C プログラムを停止して，コマンドレベルへ 
もどします. 

バラ メータ ] C C レジスタ•キヤ リー フラグ （ bitO ) 

f ’ Break ’ のメッセ•"ジを出力する：1 
1 ’ Break ’ のメッセージを出力しない： 0 
アドレス丨$ 8 FE 1 

^ W ] 現在実行中の F — BAS I C プログラムの実行を中止して ， BAS 
I C のコマンドレべルへ制御を移します.マシン語のサブルーチンなどから直接 
BAS I C のコマンドレべルへ戻りたい場合などに利用します.このルーチンを 
呼び出す際のキャリーフラグの ON ， 0 F F により， ” Break ” のメッセージを 
出力するか，しないかを選択することができます. 

具体的には以下のことを実行します. 

•ハ— ドウエアスタックを補正します.（このルーチンへのエントリは ， J S 

R , J MP のどちらでも可能です). 

• $49, $ 4 A に現在実行中だった行の行番号をいれる. 

• $ 4 D , $ 4 E をセットする.（実行中のステートメントのあるアドレス） 

• ” Break ” のメッセージを出力します.（エントリ時のキャリーフラグによ 
る) • 

• BAS 1 C のコマンドレベルへ制御を移す， 


サンプル 


PAGE 

⑻ 1 ( 



) 





01000 





青 




0 10 i 0 





长 Break 

entry 



01 r>20 








(%QFEi ) 

01030 






OPT 

M,NDO 

,NOS,NGG,P-255 

01040 



BFE 1 


BREAK 

EDU 

$8FE1 

basic Break 

01050 



9BDB 


卜 1ES5A6 

EQU 

$9BDB 

output from 

01060 



DB54 


KEVIN 

EDU 

*DB54 

keyinput 

01070 

5000 





GR6 

S 5000 


01080 



5000 


START 

EQU 

长 


01090 





♦ 




01 ] 00 

5000 

30 

BD 0025 


LEAX 

MES — 1 

,PCR 

01110 

5004 

BD 

9ED& 



JSR 

MESSAG 

01120 

5007 

BD 

DB54 


LOOP 

JSR 

KEVIN 


01130 

50 OA 

81 

79 



CMPA 

# # y 


01140 

50 OC 

27 

10 

50 IE 


BEG! 

YES 


01150 

50 OE 

81 

6E 



CMPA 



01160 

5010 

26 

F5 

5007 


BNE 

し Cl OP 


011 70 





* 




01 180 





* Break 

without 'Break' 


(X+n till 0 
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簧 


01190 


01200 

5012 

30 

SD 0048 


し EAX 

hESNO-1,PCR 

01210 

5016 

BD 

9BDB 


JSR 

MESSAG 

01220 

5019 

1C 

FE 


AWDCC 

轉 $F£ cl ear carry 

01230 

50 IB 

7E 

8FE1 


JMP 

BREAK 

01240 




普 



01250 




* Break 

wi th 

# Break• 

01260 




簧 



01270 

501E 

30 

8D 002 C 

YES 

し EAX 

MESYES-1,PCR 

01280 

5022 

BD 

9BDB 


JSR 

MESSAG 

01290 

5025 

1A 

01 


□RCC 

#$01 set carry 

01300 

5027 

7E 

8FE1 


JMP 

BREAK 


01310 * 

01320 502 A 0D0A MES FDB 

01330 502C 20 FCC 

01340 504E 00 FCB 

01350 504 F 77 MEBYES FCC 

01360 505E 00 FCB 

01370 505F 77 MESNO FCC 

0t3B0 5071 00 FCB 

01390 * 

01400 5000 END 

TOTAL ERRORS 00000——00000 
TOTAL WARNINGS 00000 一 -00000 

PROGRAM BEGIN ADDR^5000 
PROGRAM END ADDR^ 5071 
PROGRAM ENTRY ADDR-5000 


exec 5000 

Basi c: BREAH^ with message (y/n) ? without message ! 1 
Ready 
exec 

Basic BREAK with message (y/n) ? with message f f 

Eir eak 
Ready 


*ODOA 

# Easi c BREAK with message (y/n) ? * 

0 

'with message ! ! 

0 

f wi thout oiessage f : 


START 
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DB34 

04 

30 

0B 5026 
39 

07 5026 

D08E 

30 

E3 5009 


8DD1 


9BDB 

D08E 

8DD1 

DB54 


5000 


8D 0024 
9BDB 




簧 


error 


message output 

($8DD1) 



DPT 

li f N0S, 

N0G,NDD,PAGE=2S5 

MESSAS 

EQU 

f9BDB 

output from (X + 1)til 

OUT 

E0U 

$D08E 

one charact er output 

ERROR 

EQU 

$8DD1 

basic error 

KEVIN 

* 

EQU 

$DB54 

keyinput with wait 

□RG 

$5000 


START 

EQU 

* 


普 




* qet 

黃 

error 

code in 

Breg 

LEAX 

MES-1, 

PCR output message 


J SR 

MESSAG 


CLRA 
C し RB 


get number in Breg 

LOOP 

PSHS 

A 



LDA 

掉 10 

eg*] 〇 +keyin 


MU し 
ADDS 

,s+ 



PSHS 

B 



JSR 

KEVIN 

keyinput 


PULS 

B 



CMP A 

林、） 

test f 0 \ . す 


BCS 
CMP A 

ERR 

# f ? 



BHI 

ERR 



JSR 

OUT 

echo back 


BUEA 

林 ， 0 



BRA 

LOOP 



* 

菁 jump to error routine 
* 

ERR JMP 
* 

* message 

* 


ERROR 


サンプル 


PAGE 001 ( 

01 000 
01010 
01 020 
01030 
01 040 
01050 
01 060 
01 070 
01 080 

01090 5000 

01100 

01110 

01120 

01130 

01140 5000 30 

01150 5004 BD 

01160 500 7 4F 

01170 5008 5F 

01 i 8C> 500^ 34 

01190 50 OB 86 

01200 50 CD 3D 

01210 500 E EE 

01220 5010 34 

01230 5012 BD 

01240 5015 35 

01250 501 フ 81 

01260 5019 25 

01270 50IB 81 

012 BO 50ID 22 
01290 50IF BD 

01 300 5022 80 

01310 5024 20 

01320 

01 330 

01340 

01350 5026 7E 
01 360 
01 370 
01 380 


$ 8 D D 1 :エラー処理 


, 機 能 | BAS I C のエラーメッセージを出力して ， BAS 1 C のコマンド 
レベルへ制御を移します. 

パラメータ [ B レジスタ— エラー コード （「F —B A S I C 文法書」付録5参照) 
[アドレス丨$ 8 DD 1 

「解 脱 1 ヱラーコードで指定するエラ'-メッセージを出力し， BASIC の 
コマンドレベルへ制御を移します. 

エラー コードは 0 以外の数を指定して下さい. エラー メ ッ セージが定義されて 
いない コー ドの場合は ’Unprintable Error ， のメッセージを出力し ます . 

また ， D I SK モードでない時にディスク関係のエラーコード （6 5〜7 3) を 
指定した場合も ’Unprintable Error ， となります. 


2 A 0 4 

In ** ■ _ 

f% ft rLL BIV 
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01390 

501/9 

ODD A 

HES 

FD& 

^ODOA 

01400 

502 B 

42 


FCC 

'BASIC error code = 

01410 

503 E 

00 


FCB 

0 

01420 


5000 


END 

START 


TOTAL ERRORS 00000——00000 
TOT A し WARNINGS 00000 — - <>0000 

PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=503E 
PPOBRAM ENTRY ADDR=5000 


ec 5000 

BASIL error code = 2 

SyntError 

Ready 

eit ec 

BASICJ error code = 4 

Out Of Data 

Ready 

exec 

BAS]C error code - 1 00 

Unprintab1 & Error 
Read v 
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$ 8 F 3 9 :プログラム•クリア 


餅 

能 1 

BAS 1 C プログラムを消去 （ NEW ) 

します. 

ァ K 

レス 

$ 8 F 3 9 (BAS 1 C プログラムの消去と同時にオープンされて 

いる， 

ファイルのクローズを行いたい場合は $ 8 F 3 6 

) 

做 

説 

BAS I C プログラムを消去 （ NEW ) 

します.具体的には ， BA 


s I c のテキストのリンクポインタをイニシャライズすることにより消去します. 


($ 3 3のさすアドレスとその次のアドレスに0を書きこみ，$3 5に，$33 
の内容に2を加えた値を代入する） 

またこのルーチンは，内部で S レジスタ（スタックポインタ）を変更している 
ので，これには J MP で入る必要があります.（スタックのトップにあるアドレス 
だけが保存されます） 



PAGE 

001 ( 


, ) 




〇 1 000 




箐 



01010 




* BASIC 

: program c1 ear 

01070 




* 


(«8F39) 

01 030 





OPT 

N,N0D f NOS ， NOB,P=255 

01 040 



SF39 

CLEAR 

EDU 

*8F39 basic progr 

01050 



9BDB 

MESSA6 

EDU 

$9PDB output from 

01060 



DB54 

KEY IN 

EQU 

$DB54 keyinput 

01 070 

5000 




CJRG 

¢5000 

ij L 080 



5000 

START 

EQU 

* 

01 090 




箐 



01100 

3000 

30 

BD 00 IF 


LEAX 

MES-1,PCR 

011 K> 

5004 

BD 

9BDB 


JSR 

MESSAG 

01120 

5007 

BD 

DB54 

LOOP 

JSR 

KEVIN 

0 1130 

50 0A 

81 

79 


GMPA 

梓 ， '/ 

01140 

500 C 

27 

OC 501A 


BEX! 

YES 

01150 

50 OE 

81 

6E 


CMPA 

# 

011 fcO 

5010 

26 

F5 5007 


BNE 

LOOP 

01170 




菁 



01180 




* not c1 ear 

progr am l return to b 

01190 







01 200 

5012 


8D 0047 


LEAX 

MESNO-1,PCR 

01210 

5016 

BD 

9BDB 


JSR 

MESSAG 

01220 

5019 

39 



RTS 


01230 




升 



01240 




簧 c l ear 

program ?< jump to basic 

01250 




黄 



01260 

501A 

30 

BD 0023 

YES 

LEAX 

MESYES - 1,PCR 

01270 

501E 

BD 

9BDB 


JSR 

MESSAG 

01280 

5021 

7E 

0F39 


JMP 

CLEAR 

01290 




* 



01 300 

5024 


ODOA 

MES 

FDB 

SODOft 

01310 

5026 


63 


FCC 

1 c1 ear text program 

01320 

5041 


00 


FOB 

0 

01 330 

5042 


7*? 

ME3YE5 

FCC 

f yes. 

01340 

5046 


ODOA 


FDB 

*0D0A 

01350 

5043 


63 


FCC 

J c1 ear text program 

01 360 

5030 


00 


FCB 

0 

01370 

505 E 


6E 

MESNQ 

FCC 

* no * 

01 380 

5061 


ODOA 


FDB 

$ODOA 


11 


フ 

■ 


127 





01 390 

5063 

6E 


FCC 

r not clear te:<t pragram 

01400 

507C 

00 


FCB 

0 

01410 

01420 


5000 

* 

END 

START 


TOTAL ERRORS 00000— 一 00000 
TOTAL WARNINGS 00000- 一 00000 

PROGRAM BEGIN ADDR^= 5000 
PRDBRAM END ADDR=507C 
PROGRAM ENTRY ADDR^SOOO 


し 1ST 

10 # program text 

20 J 

30 11 program here ! ! ! !" 

40 PRINT A$ 

Ready 

RUN 

program here ! ! ! ! 

Ready 

e?x bc 8¢ H 5000 

clear text program t y/n) ? no» 

not cl ear te>: t program レ！ 

Ready 

LIST 


i0 ' program text 
20 

30 A$= 11 program here !!!!.* 

40 PRINT 0¢ 

Ready 

RUN 

program here ! * f ! 

Ready 

c1 ear text program (y/n) ? yes, 
clear text program !! 

Ready 

LIST 


Ready 

RUN 

Ready 
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$ 8 F 1 E ： 行サーチ 


m _能 | テキスト中から特定の行を探し出します. 

D レジスタ―行番号 

$ 8 F 1 E 

しレジスタ j CC ， X， U 

「i t 帰情報 1 CC レジスタのキャリーフラグ （ C ), ゼロフラグの内容によって結 
果が分かれます. 

(1) C= 0 , Z= 1 の場合 

指定した行番号の行が存在しています. X レジスタに指定行の先頭アドレス 
(リンク•ポインタを含みます）が， U レジスタには次の行の先頭アドレスがセ 
ットされます. 

(2) C = t , Z = 0の場合 

指定した行番号の行は存在しませんが，指定した行番号より大きな行番号を 
もつ行が存在します.このとき， X レジスタにその行の先頭アドレス， U レジス 
夕にその次の行の先逋アドレスがセットされます. 

(3) C =1 ， Z =1の場合 

指定した行番号の行は存在せず，かっ，それより大きい行番号の行も存在し 
ないことを示します. X レジスタには ， F —BA S I C のテキストエンドを表わ 
す，2バイトの$ 0 0が格納されている最初のアドレスを指します.また U レジス 
夕には0がセットされます. 


パラメータ 
アドレス 


サンプル 


PAGE 

〇〇 i ( 


, > 





01000 




箐 




01010 




♦1 i ne 

search 



01020 




朞 


($8F1E) 

01030 





OPT 

M,N0S, 

NOG,MOO,PAGE =255 

01040 



9BDB 

MESSAG 

EQU 

*9BDB 

output + rom (X +1> till 

01050 



D08E 

□UT 

EQU 

车 DOSE 

one character output 

01060 



8F1E 

SEARCH 

EQU 

*8F1E 

1ine search 

01070 



DB54 

KEY IN 

EQU 

$DB54 

keyinput with wait 

01080 



AC37 

D160UT 

EQU 

$AC37 

output Dreg in HEX 

01090 

01100 

5000 



餐 

ORG 

$5000 


01110 



5000 

START 

EQU 

箐 


01120 








01130 




* get 

l ine no. 

in Dreg 

01140 
01150 

5000 

30 

8D 004 A 

箦 

LEAX 

MES-1, 

PCR output message 

01 160 

5004 

BD 

9BDB 


JSR 

MESSAG 


01 i 70 

5007 

CC 

0000 


LDD 

#0 


01180 

500 A 

34 

06 


PSHS 

D 

number 


0 
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01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01 300 
01310 
01 320 
01330 
01340 
01 350 
0J 36U 
01370 
01380 
01390 
01 400 
0 i 4 i 0 
0 1420 
01 430 
01440 
01450 
01460 
014 70 
01480 
01490 

u 1.W" i 

015 lu 
01520 
01530 
0 1 540 

oi 

01560 
0 1570 
015 BO 
0159 C) 
01 600 
0161 0 
01620 
01630 
01640 
01650 

ぐ ■1660 

TOTAL 
TOT A し 


50 OC 

34 

506 E 

EC 

5010 

58 

5011 

49 

501:: 

58 

5013 

49 

5014 

E3 

501 fc 

5B 

5017 

49 

5018 

E3 

501A 

ED 

501C 

BD 

50IF 

B1 

5021 

25 

5023 

81 

3025 

22 

5027 

BD 

502 A 

80 

502C 

IF 

50?E 

斗 F 

502F 

20 

5031 

3 b 

5033 

BD 

5036 

25 

5038 

34 

303 A 

30 

503E 

BD 

5041 

KT 

5043 

BD 

5046 

39 

5047 

5U 

504B 

BD 

504E 

39 


06 


GL01 

PSHS 

D 

keyinput 

62 



LDD 

2,5 

get number 




AS し B 


Dreg-Dreg*10 




ROLA 






ASLB 






R □ し A 



62 



ADDD 

2，S 





ASLB 






ROLA 



El 



ADDD 

， S+ + 

add keyinput 

E4 



STD 


store number 

DB54 



JSR 

KEVIN 

get keyinput 

30 



CMPA 

林 ， 0 

test . す 

OE 

5031 


BCS 

B し 02 


39 



CHPA 



OA 

5031 


BHI 

B し 02 


DOSE 



JSR 

OUT 


30 



SUBA 

It *0 


S? 



TFR 

A,B 





CLRA 



DB 

50 OC 


BRA 

GL01 


06 



PU し b 

D 

number in ureg 

8F1E 



JSR 

SEARCH 

赞簀 line search 

OF 

5047 


BCS 

NOFIND 

if not found 

10 



PSHS 

X 

f ound 

BD 00 IE 


し EAX 

FINDM - 1, 

PCR 

9BDB 



JSR 

MESSAG 


06 



PULS 

D 


AC 37 



JSR 

D160UT 

output address 




RTS 





长 




BD 0020 

NOFIND 

LEAX 

NDFINn-1 

,,PCR output message 




0 SR 

MESSAG 



RTS 




* messages 

50 4 F 

ODOA 

MES 

F DB 

5^51 

20 


FCC 

505 C 

00 


FCB 

5050 

ODOA 

FINDM 

FDB 

505 F 

20 


FGC 

506 B 

00 


FCB 

5060 

ODOA 

NOFINM 

FDB 

^06E 

20 


FCC 

5081 

00 


FCB 

ERRORS 

5000 

00000--00000 

* 

END 


WARNINGS 00000--00000 


$0D0A 

'LINE NO - ピ 
0 

$ODOA 

f LINE FROM i^ 

0 

fODOft 

J LINE NOT FOUND !! 


START 


PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=S081 
PROGRAM ENTRY ADDR=5000 


し 1ST 

10 r line 10 
20 4 line 20 

30 J 1ast 1ine of prpgram 

Ready 

gk ec 5000 


LINE NO.=10 
LINE FROM $0C6A 
Ready 
b\< ec 

し INE NO. =30 
LINE FROM S0C88 
Ready 


bk ec 



LINE NO- -40 
LINE NOT FOUND !! 
Ready 


BEB ADDR 0C6A 
END ADDR 0CA4 

0 1 23456789 ABCDEF CHARACTER 


0C60 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

OC 

79 

00 

OA 

3A 

BD 


..V " : _ 

〇匚 70 

20 

6C 

69 

fcE 

65 

20 

31 

30 

00 

OC 

B8 

00 

14 

3fi 

8D 

20 

line K し 

■ 1 ■ 

ocao 

6C 

6"? 

6E 

65 

20 

32 

30 

00 

oc 

ft4 

00 

IE 

3A 

8D 

20 

6C 

line 20“ 

■1 

0C90 

61 

73 

74 

20 

6 匚 

69 

6E 

65 

20 

6F 

66 

20 

70 

72 

6F 

67 

ast line 

of prog 

OCAO 

72 

61 

6D 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

ram.. 







$C 7 3 0 :リンク • ポインタ設定 


機 


能1 BAS 丨 C テキストのリンクポインタを再設定します 


I パラメータ1($3 3，$ 3 4) —B AS I C テキストの先頭番地 
アドレス丨$0730 


レジスタ1 CC ， A , B , X， U 

復帰情報 J X レジスタ：プログラムエンドを示す2バイトの$ 0 0が格納され 
ている最初のアドレスを指します. 


解—脱丨$33, $34に格納されているプログラムの先頭アドレスから X 
レジスタをポインタとして，プログラム エンドへ 向けてサーチして行き，次の 

行の先頭を見つけたら，現在のリンクボインタに次の行の先頭アドレスを代入し 
ます.この作業を次行の先頭2バイト（リンクポインタ）が$00になるまで続 
けます. 


サンプル | NEW されたプログラムを復活させます（リセットによって失われ 
たプログラムは復活不可能です). 


PAGE 

〇 |：> 1 ( 


, » 





〇 1000 




篑 




01010 




黃 

BASIC TEXT 

recovery 

program 

01020 




■X" 


($C730) 

01030 





□PT 

M,NDS,NOG,ND0,PAGE=255 

01040 



9BDB 

MESSAG EQU 

i?BDB 

output -from (X+l) till 

01050 



C 730 

LINK EQU 

¢0730 

link basic: t&H t 

01060 



AC37 

DlfeOUT EQU 

*AC37 

output Dreg in HEX 

01070 




箦 




01080 

5000 




ORB 

¢5000 


01090 



5000 

START EQU 

箐 


01100 




* 




01110 




簧 

output message ?< link BASIC text 

01120 




脊 




01130 

5000 

30 

8D 0022 


LEAX 

MES1-1, 

PCR 

01140 

5004 

BD 

9BDB 


JSR 

MESSAG 


01150 

5007 

DC 

-nr 

■::〇 


LDD 

¢33 

1oad teKt start address 

01160 

5009 

BD 

fiC37 


JSR 

D160UT 


01 170 

50 0C 

30 

8D 004 B 


LEAX 

MEB2-1, 

PCR 

01180 

5010 

BD 

9BDB 


JSR 

MESSAG 


01190 




簧 




01200 




# 

recover program main 

01210 




黉 




01220 

5013 

CC 

000 1 


LDD 

#1 

set first link pointer 

01230 

5016 

ED 

9F 0033 


STD 

C$333 

as not end o 干 program 

01240 

501 A 

BD 

0730 


JSR 

LINK 

** link. BASIC program 

01250 

5010 

30 

02 


LEAX 

2,X 

set tent end address 

01260 

501 F 

9F 

35 


STX 

$35 


01270 




* 




01280 

5021 

IF 

10 


TFR 

X,D 


01290 

5023 

BD 

AC37 


JSR 

D160UT 


01300 

5026 

39 



RTS 



01310 




并 




01320 




-if- 

messages 
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program text 

PRINT" program text here 


Ready 

RUN 

program te>;t here ! ! 

Ready 

new 

Ready 

LIST 


Ready 

RUN 

Ready 

exec 5000 

BASIC TEXT RECOVER 
TEXT START ADDRESS =$0C6A 
TEXT END ADDRESS -*0C9D 
Ready 
LIST 

10 ‘ program text 

20 PRINT" program te^t here 

Ready 

RUN 

program t&>: t here ! ! 

Ready 


01330 



簧 

01 340 

5027 

ODOA 

MES1 

01350 

5029 

2A 


01 360 

5041 

ODOA 


01370 

5043 

54 


01360 

505 日 

00 


01390 

5059 

ODOA 

MES2 

01400 

505B 

54 


01410 

5070 

00 


01420 



长 

01430 


5000 



TOTAL ERRORS 00000 —_ 00000 
TOTAL WARNINGS 00000—00000 

PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=5070 
PROGRAM ENTRY ADDR=5000 


LIST 


FDB $0D0A 

FCC 'BASIC TEXT RECOVER ， 

FDB $ODOA 

FCC ^TEXT START ADDRESS ず 

FCB 0 

FDB $ODOA 

FCC ‘TEXT END ADDRESS 4… 

FCB 0 

END START 
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$C 6 3 D : BAS 丨 C プログラム実行 


機 能」メモリ上に格納されている BAS 丨 C プログラムを実行します. 

アドレス]$ C 6 3 D 

玉 ~ W ] このルーチンは BAS I C プログラムを実行しますが，トレースフ 
ラグ （$ A 9) が ON されている場合は，トレース動作も同時に行います. 

このルーチンを使用するに当っては ， BAS IC の各種のボインタがセットさ 
れている必要があります.これは，下記の 「BAS I C 用ポインタ設定」を使用 
することによって行われますので，ユーザーは，このルーチンを使用する前に下 
記のルーチンを実行しておく必要があります. 


$ 8 F 4 B ： BAS i C 用ポインタ設定 


* 能 BAS I C 内で使用しているポインタ類を， BASIC プログラム 
実行のためにセットします. 

アドレス I $ 8 F 4 B :通常の場合 

$8 F 4 3 : UNLIST ， Protect の解除を行う場合 
$ 8 F 41:$ 8 F 4 3の動作に加えて，トレースフラグのクリア 

をする場合 

["レジスタ 1 CC , A , B ， X ， Y , U 

1^ 説 I このルーチンは，$ C 6 3 D と組み合わせて B A S I C の R U'N 
に相当する動作をしますが ， R UN と異なりオープンされて いる ファイルのク 
ローズは 行いません. 

このルーチンは，内部で BAS I C テキストの読み出しポインタ （$ D 9) を 
書きかえています.したがって， BASIC から EXEC &H 8 F 4 B , 又は 
モニタから G 8 F 4 B を行った場合には，それだけで ， BAS I C プログラムを 
実行します. 
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サンプル 


PAGE 

001 ( 


, ) 




01 000 




* 



01010 




* execi 

jte BiASi し program 

01020 




普 


($8F4B,$C63D) 

01030 





OPT 

M ， NOS,NOG,NOD,PASE=255 

01 040 



9BDB 

MESSAG 

EQU 

$9BDB output from (X+1)til 

0 1050 



8F4B 

INIT 

EDU 

$8F4B initialise far basic 

01 060 



C63D 

EXEC 

EQU 

$C6j,D execute basic program 

01070 




癸 



01 080 

5000 




OHG 

¢5000 

0 i 090 



5000 

START 

EQU 

* 

01100 




餐 



01110 




* output message 8< start BASIC program 

01120 







01130 

5000 

30 

8D 0008 


LEAX 

MES-1,PCR 

01140 

3004 

BD 

9BDB 


JBR 

HESSAG 

0 1 150 

5007 

BD 

8F4B 


JBR 

INIT 

01160 

50 Oft 

7E 

ChZD 


JMP 

EXEC 

01 170 




簧 



01180 

5000 


0D0A 

MES 

FDB 

^ODOA 

01 190 

50 OF 


65 


FCC 

'eK ecute basic program ! ! 

01200 

5027 


0D0A 


FDB 

$0D0A 

01210 

5029 


00 


FCB 

0 

01220 




* 



01 230 



5000 


END 

START 

TOTAL 

ERRORS 

000 〇〇 一一 00000 





TOTA し WARNINGS 00000 —一〇〇〇〇〇 

PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=5029 
PROGRAM ENTRY ADDR=5000 


LIST 

iO v program text 
20 , 

30 PRINT" proqram tex t here 

Ready 

mon 

*G 5000 

exec ut e? basic proqr am ! ! 
program text here ! ! ! 


I^esdy 



$ A B F 4 :モニタエントリ 

モニタのコマンドレべルへ制御を移します. 

$ ABF 4 

~M W ] $ ABF 4にジャンプすることでモニタに制御が移ります.これを 
利用することにより，モニタをマシン語デバッガ（機能はごく最小限のものとな 
ります）として使用することができます. 

つまり， ユーザープログラム 中に JMP $ ABF 4を書き込んで ブレーク ボイ 
ントとしておくと，そこを実行した時にモニタに飛んでくるため， R コマンドを 
使用して，その場所でのレジスタ値を調べることができます. 



[サンプル 

PAGE 001 ( 


01000 * 

01010 * use MONITOR(MON > as debugger 

01020 * (^ABF4) 


01030 






OPT 

M,N0S, 

NOB, N00 f PAGE=255 

01040 



9BDB 


MESSAG 

E0U 

$9BDB 

output from (X+l)till 

01050 



DOSE 


OUT 

EDU 

$D08E 

one character output 

01 060 



DB54 


KEVIN 

EDU 

$DB 54 

keyinput with wait 

01070 



AC37 


D160UT 

EQU 

*AC37 

output Dreg in HEX 

01 080 



ABF4 


MON 

EDU 

$AE«F4 

monitor entry 

01090 





* 




01100 

5000 





□RB 

¢5000 


0111 C> 



5000 


START 

EQU 

簧 


0 U 20 





黃 




01130 





# break 

: point 

set 

: START 

01140 





* brea^ 

: point 

reset 

;START+2 

01150 









01160 

5000 

20 

02 

5004 


BRA 

SET 


01170 

5002 

20 

6E 

5072 


BRA 

RESET 


01180 





菁 




01190 





* set break point 


01200 





* gat break point address 

01210 





普 




01220 

5004 

30 

BD 008 A 

SET 

LEAX 

MES 卜 1 

,PCR output message 

01230 

5008 

BD 

9BDB 



JSR 

MESSAG 


011 l 40 

500 B 

CC 

0000 



LDD 

#0 


01 250 

50 OE 

34 

06 



PSHS 

D 


01260 

5010 

34 

06 


BAG i 

P5HS 

D 

save keyin 

01270 

5012 

EC 

62 



LDD 

2,S 

Dreg=Dreg*16+keyin 

oi?eo 

5014 

58 




AS し B 



01290 

5015 

49 




RD し A 



01300 

5016 

58 




AS し E 



01310 

5017 

49 




ROLA 



Ot 320 

5018 

58 




ABLB 



01330 

5019 

49 




KOLA 



01340 

50 1A 

58 




AS し B 



01350 

501 B 

49 




ROLA 



01360 

501C 

E3 

El 



ADDD 

T S++ 


01370 

501E 

ED 

E4 



STD 



0 1380 

5020 

BD 

DB54 



JSR 

KEY IN 

key!nput 

01390 

5023 

81 

30 



CMPA 

♦TO 

test y ぃ f 勺 4 or ffT • ■ 

01 屮 )0 

5025 

25 

ID 

5044 


B 匚 S 

6A04 


01410 

5027 

81 

39 



CMPA 

# 


OM 20 

5027 

m 

a 

07 

5032 


BHI 

GAO 2 



下 ， 


136 







01430 

502B 

BD 

DOSE 


JSR 

OUT 

01440 

502E 

80 

30 


SUEA 

♦TO 

01450 

5030 

20 

OD 503F 


BRA 

6A03 

01460 

5032 

81 

41 

GAO 2 

CMPA 


01470 

5034 

つじ 

OE 5044 


BCS 

GA04 

01480 

5036 

巳 1 

46 


CMPA 

林下 

01490 

5038 

つつ 

|^國 dbiv 

OA 5044 


BHI 

GA04 

01 500 

503A 

BD 

D08E 


JSR 

OUT 

01510 

5030 

80 

37 


5UBA 

IT A—10 

01520 

503F 

IF 

89 

GA03 

TFR 

A,B 

01330 

5041 

4F 



C し RA 


01540 

5042 

20 

匚匚 5010 


BRA 

6A01 

01550 

5044 

35 

06 

GAO 4 

PULS 

D address in Dr eg 

01560 




* 



01570 

5046 

IF 

01 


TFR 

D，X 

01 580 

5048 

AF 

8D 0090 


SIX 

ADDR,PCR save address 

01590 

504 匚 

A6 

84 


LDA 

,X save memory 

01 600 

504E 

A7 

BD 008 C 


STfl 

MEM1,PCR 

01610 

5052 

EC 

01 


LDD 

1,X 

01620 

5054 

ED 

8D 0087 


STD 

f1EM2,PCR 

01630 

5058 

86 

7E 


LDA 

#$7E write JMP HON 

01 640 

505 A 

A7 

84 


STA 

,x 

01650 

505 C 

CC 

ABF4 


LDD 

#MGN 

01 660 

305F 

ED 

01 


STD 

1,X 

01670 

5061 

30 

BD 003 E 


LEAX 

MES2 - 1,F'CR output message 

01680 

5065 

BD 

9BDB 


JSR 

MESSAG 

01690 

5068 

EC 

BD 0070 


LDD 

ADDR,PCR 

0170 U 

506C 

BD 

AC37 


JSR 

D160UT 

01710 

506F 

7E 

ABF4 


JMP 

MDN jump to monitor 

0 J 720 




* 



01730 




* reset 

br eak 

poi nt 

01740 




* 



01750 

5072 

30 

8D 0044 

RESET 

LEAX 

MEB3 - 1,PCR output message 

01760 

5076 

BD 

9BDB 


JSR 

MESSAB 

01770 

5079 

EC 

8D 005 F 


LDD 

ADDR,PCR load set address 

01780 

5070 

BD 

AC37 


JSR 

D160UT 

01790 

5080 

A6 

8D 005 A 


し DA 

MEM1,PCR memory recover 

Ml 800 

5084 

AE 

8D 0054 


LDX 

ADDR,PCR 

0 1810 

5088 

A7 

84 


STA 

f X 

01820 

508A 

EC 

0D 0051 


し DD 

MEM2,PCR 

01830 

50 BE 

ED 

01 


STD 

1,X 

01840 

5090 

7E 

ABF4 


JMP 

MON jump to monitor 

01850 




箐 



01860 

5093 


ODOA 

MES1 

FDB 

$ODOA 

01870 

5095 


53 


FCC 

^ BET ADDRESS 

01860 

50A3 


00 


FCB 

0 

01 890 

50 A 4 


ODOft 

MES2 

FDB 

$ODOA 

01 900 

50A6 


42 


FCC 

* BREAK POINT SET AT 

0 1910 

5 OB A 


00 


FCB 

0 

01920 

50BE-f 


ODOA 

MES3 

FDB 

*ODOA 

01V30 

bUBD 


42 


FCC 

# BREAK POINT RESET ADDRESS ‘ 

01940 

50 DB 


00 


FCB 

0 

01950 




箐 



01 960 




簧 



01970 




箐 



01 9Q0 

50DC 


0000 

ADDR 

FDB 

0 break point address 

01 990 

50DE 


12 

MEM! 

FCB 

¢12 memory save area 

02000 

5 DDF 


1212 

MEM2 

FDB 

$1212 

020 i 0 




* 



02020 



5000 


END 

START 

TOTAL 

ERRORS 

I 000 (^o-~onnoo 





TOTAL WARNINGS 00000 -- 00000 


PROGRAM BEGIN 
PROGRAM END 
PROGRAM ENTRY 


ADDR=5000 
ADDR=50E0 
ADDR ユ 5000 


man 

*05000 

SET ADDRESS =¢4026 



BREAK POINT SET AT ¢4026 
*64000 


BASIC error code 二 255 


CC 

89- 

A 

0D- 

B 

FF- 

DP 

00- 

X 

05 AO 

Y 

C4E5 

U 

1 340 

PC 

ABF9 




*65002 

BREAK POINT RESET ADDRESS 二丰 4026 
*G 4000 

BASIC error code - 2S3 

Unprintable Error 
Ready 

$ C D D 1 : BAS I C プログラム•セーブ 


能 | BAS 丨 C のプログラムをセーブします. 

パラメ—: n $ 2 E 0一物理機番 

$ 2 DD — ファイル名長 
$2 DE 〜 $2 E 5— ファイル名 
$日 F — 定数<$丨1 ) 

_ $ 2 D B , $ 2 DC , $2 D 4 — 0 

ナドレス I $ C D D 1 

レジスタ ] CC , A , B , X (指定する機器によって Y , U ) 

解 説1 メモリ上にある BAS I C プログラムをセーブします. 
ファイルのフォーマットは，下図のようになります. 



I L - UMUST の行番号 

_この ルー チンでは常に$ FF • 

(プロテクトをかけて セーブす ると $ FE となる） 

メモリ上に展開されているコードがそのまま出力される. 
(プロテクト がかかっている場合には特殊な処理が施してある) 
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$ C E 1 B ： マシン語プログラム • セーフ 


\ jm _能」メモリ上のマシン語プログラムをセーブします. 
パラ/一夕| $ 2 E 6 —物理機番 

$ 2 DD — ファイル名長 
$ 2 DE 〜$ 2 E 5 —ファイル名 
$ BF — 定数 （$11) 

$ 2 DC , $ 2 D 4 — 0 


スタック 



入口番地 
終了番地 
開始番地 

セーブ終了後のジャンプ先 
( RTS のもどり先） 



厂ア ドレス 丨 $ C E 1 B 

[レジスタ」 CC , A , B , X , Y f U , S 

w \ このルーチンは，メモリ上にあるマシン語プログラムをセーブしま 
す.ファイルのフォーマットは I 、•図のようになっています. 

このルーチンの呼び出しは，アドレス情報をスタックに積んだ後 J M P 命令に 
よって行われる必要があリます.しかし，ルーチンからは RT S 命令でもどっ 
てくるため，あらかじめ，もどり番地をスタックに積んでおく必要があります. 
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$C F 7 7 ： プログラム •口ー ド 



BAS I C またはマシン語のプログラムをロー ドします. 

$2 F 0 —LOADM フラグ （0 : LOADM ， 0以外 LOAD ) 
$ 2 F 1,$ 2 F 2—し0 ADM オフセット値（通常 fl ) 

$ 2 E E — 即実行フラグ （ 3 :即実行，0:即実行しない〉 


$ 2 EF— 0 
$ 2 E 6—物理機番 

S 2 DD — ファイル名長 
$ 2 DE 〜$ 2 E 5—ファイル名 
アドレス ] $CF 7 7 ( JSR で入ること） 
レジスタ1 CC , A , B , X , Y , U 


解 説丨 LOADM フラグによって ， BAS I C を口ードするか，マシン語を 
ロー ドするかを決定します.ロー ド中にエラーが生じた場合には ， BAS I C の 

エラー®; 理を行い， コマンドレベルへ 移ります. 

BAS IC のプログラムをロードした場合には ， BAS IC のコマンドレべル 
へ制御が移ります.マシン語プログラムをロードした場合には， RTS でもどって 
きます. 
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$c E DC , C E D F :ファイルオープン 



ファイルのオープン処理を行います. 

$ BF — 論理機番（ファイル番号）：1〜16 (口は内部用） 

$ 2 E 6—物理機番（デバイス番号）： 0〜$ F ， $80〜$83 


$ 2 DD — ファイル名の長さ： 〇〜8 

$ 2 DE 〜$ 2 E 5 —ファイル名 （ 8文字に満たない分は空白） 

$2 E 7 〜 $2 E C — ファイルオプション（最後は $00) 

$2 DB — ファイルタイプ ) 入カモードの時は，復帰情 

$ 2 DC , $ 2 D 4—アスキーフラグ J 報となります • 

アドレス _[ $ C E D C :入カモード （OPEN “に，）のとき 

$CEDF :出カモード （OPEN “〇” ） のとき 
レジスタ"] S を除いてすベて破壊される可能性があります • 


解 説」物理機番で示されるデバイスにファイルをオープンし，ファイル番 
号と入出カバッファを割り当て，以下そのファイル番号での入出力を可能にしま 
す，ファイルオプションについては「文法書」 2 - 18 を御参照下さい. 

エラーが生じた場合には， BASIC のエラー処理を行います. 


$CE 4 B :ファイル クローズ 


機_能 I ファイルのク a —ズ処理を行います. 

フラメータ| $ B F — 論理機番：1 〜 16 

^ ドレス 丨 $CE 4 B (オープンされ ている全てのファイルをクローズした 
いときは， SCE 81 . この場合，論理機番の指定は不要） 

レジスタ| S をのぞいてすべて破壊される可能性があります. 

~m w \ ファイル番号と出カバッファの割り当てを解除します.オープン同 
様 エラー が 生じた場合には， basic のエラー 処理を行います. 

注） 論理機番 17 は， BASIC 内部で使用されているものなので，ユーザーは使用 
できません.また，入出力の際，論理機番に〇を設定すると，出力時はスクリー 
ン，入力時はキーボードが才旨定されます.論理機番〇の入出力にはオープン処理 
は必要ありません. 
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物理機番対応表 


キー ボ 


ド、 

K Y 

B 

D 

スクリ 


ン 

S C 

R 

N 

カセッ 

h 

テープ 

C A 

S 

0 

フ°リン 

夕 


LP 

T 

0 

R S 2 

3 

2 C 

COM 

0 

フロ ッ 

ピー ディスク〇 

0 : 





入出力装置名 デバイス名 I 物理機番 


ファイルタイプ 


アスキー フラグ 


$D 0 7 2 ：1文字入力 


指定した論理機番のファイルから1文字入力します. 
$ B F —論理機番 
$ D 0 7 2 
CC , A 


A レジスタ：入力した文字 
$ C 0： エラー フラグ 


关〇 :エラーあり (Input past end 他) 

= 〇 :エラーな 



ープンされていない論理機番を指定した場合には，キーボードが 


割り当てられます，ま 
てられます. 


巧/义 

删 


理機#に0を f 旨定した場合にもキーボードが割り当 


キーボードからの入力の際に，画面へのエコーバックは行われません, 


アドレス 



レジスタ 


解 説 


復帰情報 




ファイルの属性 

i $ 0 0 

$ F F 

バイナリファイル 

アスキーフ ァイ ル 



r - — - 

ファイルの形式 

$00 

BA S I C ソース 

$ 01 

BA S I C データ 

$ 0 2 

マシン語フアイル 


012340123 
000 0 08888 
$$$$$$$$$ 
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$D 0 8 E ：1 文字出力 


機 能|指定した論理機番のファイルから1文字入力します. 

フラ メータ」 論理機番 

A レジスタ—出力する文字 
ア ドレス]$ D 0 8 E 
レジスタ ] CC 

M ] オープンされていない論理機番を指定した場合には，スクリーンが 
割り当てられます. 

論理機番に〇を指定した場合にもスクリーンが割り当てられます.この時$ 5 
A C の内容が0でないときには同時にプリンタにも出力されます. 

指定した論理機番が，入カモードにオープンされている場合は，何も行いませ 
ん. 


$D 8 0 7 ：1行入力 (1) 


機 能 I 指定した論理機番のファイルから1行入力を行います. 

パラメータ] $ B F — 論理機番 
アドレス ] $D 8 0 7 
レジスタ] CC , A , B , X , Y , U 
復帰情報 I X レジスタ=$4 3 C 

$43 D — $ 5 3 C ：入力文字列 （ $ 0までが入力文字列） 

» —説 |このルーチンは1文字入力を利用して，指定ファイルから1ライン 
入力し，$ 4 3 D からのバッファに入カデータを入れてもどります. 

ラインインプットは ， CR ($ 0 D ) が入力されるか，ファイルの全データを 
入力し終るまで行われます.ただし，入力文字中のコントロールコード （$ 〇〜 
$1 F ) はバッファには転送されません （ CR も転送されません）. 

リ ターン時には ，X レジスタにバッファアドレスー 1が入っており，入カデ ー 
夕の未尾には$ 0 0を伴なっています.また，文字列の終りにスペースがある場 
合には，文字列後ろにスペースでない文字があるところまで，文字を削除します 
のて、文字列の最終文字は必ずスペース以外の文字となります. 
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$ D 7 F 7 : 1 行入力 (2) 


m . _指定した論理機番のファイルから 1 行入力を行います. 

「パラメータ | $BF —論理機番 
アドレス ] $D 7 F 7 
:レジスタ] CC , A , B , X , Y , U 
復帰情報 1 X レジスタ =$4 3 C 

$43 D 〜 $53 C : 入力文字列 （ $ 0 までが入力文字列） 

解 説|このルーチンは， BASIC のスクリーン エディット 用のルーチンで，入 
力した文字列の最初のキャラクタ（スペースはスキップする）が数字であった場 
合には次回このルーチンがコールされた時に，キー入力を行わずにまだ転送さ 
れ ていない 変更フィールドを入力文字列と して 返します.しかし，これらの動作 
は，キーボードが割り当てられた場合のみで，それ以外のときは1行入力 (1) とま 
つたく同じです. 


$ 9 BDB :1行出力 (1) 


機 

能] 

パラル 

-夕 


指定した論理機番のファイルへ，1行出力を行います 
$ BF — 論理機番 

X レジスタ—出力文字列の先頭アドレス ー 1 


アドレス]$ 9 B D B 

レジスタ CC ， A , B ， X ， Y , U 


解 説 | X レジスタの内容+1番地から，$0又は$2 2 (ダブルクオ ー テ 
—シヨン）を区切りとして文字列を出力します. 

論理機番が〇のときはスクリーンに出力され，さらに$ 5 AC の内容が0でな 
い場合には，同時にプリンタにも出力されます. 
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$ 9 C 16 ：1 行出力 (2) 

"« W ] 指定した論理機番のファイルへ，1行出力を行います • 

パラメータ $ BF — 論理機番 

X レジスタ—出力文字列の先頭アドレス 
B レジスタ—文字列の長さ 
アドレス]$9016 
レジスタ] CC , A , B , X , Y , U 

\m W ] x レジスタの示す番地から， b レジスタで示される文字数だけ出力 
します. 

論理機番が〇のときはスクリーンに出力され，さらに$ 5 AC の内容が0でな 
い場合には，同時にプリンタにも出力されます. 

出力したい文字列の中にダブルク オー テーシヨンをふくむ場合は，このルーチ 
ンを用いる必要があります. 


$ 9 B 5 0 :復改⑴ 

[ p 一一 ii ] 指定した論理機番のファイルへ， CR と LF を出力します • 
[7? ラメニ $ BF 一論理機番 
[r ドレス"]$ 9 B 5 0 

レジスタ I CC , A , B , (指定する機器によっては，丫， U も破壊) 


解 説|指定したファイルに対して CR と LF を出力して復改動作を行うわ 
けですが，接続されている機器によって， CR , LF のどちらか片方だけを出力 
する場合があります.この操作は，内部で行われます. 
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$9 B 4 7 ： 復改 (2) 



指定した論理機番のファイルへ， CR と LF を出力します. 
$ B F — 論理機番 
$ 9 B 4 7 

CC ， A ， B , (指定する機器によっては， Y ， U も破壊) 


説1ファイルのポジション （BASIC の PO S で得られる値）が0でない 
ときのみ復改動作（内容は復改⑴と同じ）を行います. 

ただし，ディスク及びカセットテープには常に復改動作を行います. 


◄ ファイル入出力関係サンプル ► 

ファイル入出力に関係するルーチンを使用したサンフ°ルを2例示します. 

\ . アスキーセーブされたディスク上のファイルの内容を画面又はプリンタに 
出力します. 

2. 簡単なワードプロセッサです（このプログラムは後述のプリンタ関係のル 
—チンを使闲しています). 


サンプル 


PAGE 

001 ( 


矚 

) 







01000 





长 






01010 





* ASCI I 

f i 1 

e output 




01020 





■K 






01030 






OPT 

M,M0S, 

N0G,P^255 



01040 



9BDP 


MESSAG 

EQU 

$9BDB 

output from (X+1) 

till 

0 

01(50 



9C16 


MESSA2 

EOU 

¢9016 

output Breg bytes 

from 

⑴ 

01060 



CEDF 


0 PEND 

EQU 

年 CEDF 

file open ss output 


01070 



CEDC 


□PEN I 

EQU 

$CEDC 

fi1 © open as input 



01080 



CEB1 


C し OSEA 

EDU 

$CE01 

file close しし FILE) 


01090 



0072 


IN 

EQU 

¢0072 

input 1 byte from 

file 


01100 



DOSE 


OUT 

EQU 

$D08E 

output 1 byte to f 

i 1 e 


01110 



91350 


匚 R し F 

EQU 

*9B50 

output CR LF 



01120 

5000 





ORG 

¢5000 




01130 



5000 


START 

EHU 

斧 




01140 





长 






01150 





* input 

■f i 1 

e open 




01160 





* 






01170 

5000 

B6 

80 



LDA 

#¢80 

device no. (DISK DRIVE 

0) 

01180 

5 HO 2 

B フ 

02E6 



STft 

$2E6 

set device no- 



01190 

5005 

8D 

79 

5080 


BSR 

FI し ENA 

qet +l1ename 



01200 

5007 

86 

01 



LDA 


set file no¬ 



01210 

5009 

97 

BF 



STA 

%BF 




01220 

50 OB 

BD 

CEDC 



JSR 

OPEN I 

open as lnput 



01230 

50 OE 

B6 

02DC 



LDA 

$2DC 

file asc i i f1aq 



01240 

5011 

81 

FF 



CMPA 

#$FF 

ascii file ? 



01250 

5013 

26 

5E 

5073 


BNE 

NOTASC 

i + not ascii +i1e 



01260 





簧 






01270 





菁 output + 1 

1e open 
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胥 


012B0 


01290 

5015 

86 

(；KJ 



LDA 

#0 

set file 

no. s SCRN 8 / KYE^D 

01 300 

5017 

97 

BF 



STA 

$BF 



01 310 

5019 

30 

an 00 ei 


LEAX 

MES2-1, 

PCR output: 

message 

01320 

501 D 

BD 

9BDB 



JSR 

MEBSAB 



01 330 

5020 

BD 

0072 


LOO 

J SR 

IN 

key!nput 


0 1340 

5023 

Cfe 

03 



し DB 

#¢03 

device no 

- of し PTOs 

01350 

5025 

81 

70 



CMPA 

trp 

output to 

printer ? 

01360 


27 

06 

502F 


BEQ 

LOl 



01370 

5029 

匚 6 

01 



し DB 

#$01 

device no, of S し RN: 

01 380 

5028 

81 

73 



CMPA 


output to 

screen ? 

01 390 

502 D 

26 

FI 

5020 


BNE 

LOO 



01400 

502 F 

F7 

02E6 


L01 

STB 

$2E6 

set device no. 

01410 

5032 

B6 

02 



LDA 

林 2 

set tile 

no . 

01420 

5034 

97 

BF 



STA 

*BF 



01430 

5036 

4F 




CLRA 


file name 

opt i on-nul1 

01440 

5037 

B7 

02DD 



STA 

$2DD 



01450 

503 A 

B7 

02 E7 



STA 

$2E7 



01460 

503 D 

BD 

CEDF 



JSR 

OPENQ 

open as output 

01470 





* 





01480 





* DU 

tput file 

name 



0 1490 





箐 





01 500 

5040 

86 

02 



LDA 

林 2 

set file 

no. 

_1510 

5042 

97 

BF 



STA 

$BF 



Ol520 

5044 

30 

8D 00 DA 


LEAX 

MES3-1, 

PCR output 

message? 

01530 

5048 

BD 

9BDB 



JSR 

MESSAG 



01540 

504 B 

30 

8D one 


LEAX 

NAME ,PCR load f i. i 

e? name addr * 

01550 

504 F 

C6 

08 



LDB 

林 e 

file name 

1 enq t h 

01560 

5051 

BD 

9CI6 



JSR 

NEBSft2 

output 


01570 

5054 

BD 

9B 50 



JSR 

CRLF 



Ol 580 





箐 





01 590 





* output ascii 

file 



01 600 





黄 





01610 

5057 

C6 

01 


L02 

LDB 

#1 

se?t file 

no- 

0] 620 

5059 

D7 

BF 



STB 

%BF 



01630 

505 B 

BD 

DO 7 2 



JSR 

IN 

i nput 


01 640 

505 E 

OD 

CO 



TST 

$C0 

test error i 1ag 

01 650 

5060 

26 

09 

506 B 


BWE 

し 03 

if i nput 

past end 

01660 

5062 

C6 

02 



LDB 

#2 

set tile 

na_ 

01670 

5064 

D7 

BF 



STB 

$BF 



01680 

5066 

BD 

DOBE 



JSR 

OUT 

output 


01690 

5069 

20 

EC 

5057 


BRA 

し 02 

1oop 


01700 

5068 

BD 

CES1 


し 03 

JSR 

C し OSEA 

c1ose all 

file 

017 i 0 

506 E 

C6 

00 



LDB 

#0 

•file no _ 

reset 

01720 

5070 

D7 

Bh 



STB 

$BF 



01730 

5072 

39 




RTS 





0 i 740 * 

0 1 750 * if not ascii file then error 

01760 ^ 


01 770 

50 73 

86 

00 


NDTASC 

LDA 

#0 

01 780 

5075 

9 フ 

BF 



5TA 

*BF 

01790 

5077 

30 

SD 00 CF 


LFAX 

MEB4-1,PCR 

01 800 

507 B 

BD 

9BDB 



JSR 

MESSAG 

0 1810 

507 E 

20 

EB 

506 B 


BRA 

L03 

01 820 





箐 



01830 





* sabroutine:set file name 

0 \ 840 





箐 



0 1 850 

5080 

B6 

OU 


FI し ENA 

し DA 

#0 st e 十 lie no * 

01860 

5082 


BF 



STA 

$BF 

01870 

5084 

30 

BD 004 F 


LEAX 

MES1 - 1,PCR output message 

Ol880 

5088 

&D 

9BDB 



JSR 

ME^SSAG 

01890 

508B 

CE 

02DE 



LDU 

#$2DE file name address 

01 900 

508E 

j • 一 !^ 

0 パ） 

SD 0009 


LEAX 

NAME,PCR 

01^10 

5092 

5F 




CLRB 

1ength counter 

01920 

5093 

BD 

0072 


F01 

JSR 

IN keyin 1 

01 930 

50^6 

81 

03 



CMPA 

#$08 back space ? 

01940 

5098 

27 

18 

5082 


BEQ 

BS 

01950 

509 A 

81 

OD 



CMPA 

#$0D return key ?. 

01 960 

509 C 

/-v 7 

/ 


50C9 


BEQ 

CR 

01970 

509 E 

81 

20 



CMPA 

#¢20 control code ? 

01980 

50 AO 

25 

FI 

5093 


ECB 

F01 

0 i 990 

50A2 

ED 

D08E ： 



JSR 

OUT echo back 

02000 

50A5 

A7 

CO 



STA 

f U+ set 

02010 

50A7 

A7 

80 



STA 

,x + 
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02020 

50A9 

SC 



INCB 





02030 

50AA 

Cl 

08 


CMPB 

#8 

1enqth over 8 

7 

02040 

50AC 

25 

E5 5093 


BCS 

F01 




02050 

50AE 

F7 

02DD 


STB 

¢200 

set 

1 ength 


02060 

50B1 

39 



RTS 





02070 

50B2 

5D 


BS 

TSTB 


if 

back space 


02080 

50B3 

27 

DE 5093 


BEQ 

F01 




02090 

50B5 

BD 

DOSE 


JSR 

OUT 




02100 

50BB 

86 

20 


LDA 

林 * 20 




02110 

50BA 

BD 

DOSE 


JSR 

OUT 




02120 

50BD 

86 

08 


LDA 

#¢08 




02130 

50BF 

BD 

DOSE 


JSR 

OUT 




02140 

50 匚 2 

33 

5F 


LEAU 

一 1，U 




02150 

50C4 

30 

IF 


し EAX 

-1,X 




02160 

50 €6 

5A 



DECB 





02170 

50C7 

20 

CA 5093 


BRA 

F01 




02180 

50C9 

F7 

02DD 

CR 

STB 

*2DD 

if 

CR 


02190 

50CC 

86 

20 


LDA 

# • 

+ il 

X by space 


02200 

50CE 

A7 

CO 

C01 

STA 





02210 

5000 

A7 

80 


STA 

,x+ 




02220 

5002 

5C 



INCB 





02230 

50D3 

Cl 

08 


CMPB 

#8 




02240 

SODS 

25 

F7 50CE 


BCS 

COI 




02250 

5007 

39 



RTS 





02260 




箐 






02270 




* messages 





02280 




* 






02290 

30D8 


ODOA 

MES1 

FOB 

tODOft 




02300 

SODA 


2A 


FCC 

♦** output 

ascii file 


02310 

50F1 


ODOA 


FDB 

»0D0A 




02320 

50F3 


20 


FCC 

* FILE 

NAME 



02330 

50FE 


00 


FCB 

O 




02340 

50FF 


ODOA 

MES2 

FDB 

*0D0A 




02350 

5101 


20 


FCC 

# output printer or screen ? <p/B> 

02360 

5122 


00 


FCB 

0 




02370 

5123 


ODOA 

MES3 

FDB 

♦ODOA 




02380 

5125 


2A 


FCC 

* *** ASCII 

FILE OUTPUT 

1 *** # 

02390 

513E 


ODOA 


FDB 

*0D0A 




02400 

5140 


46 


FCC 

下 I し E 

NAME; 



02410 

514A 


00 


FCB 

0 




02420 

5148 


ODOA 

MES4 

FDB 

*ODOA 




02430 

5140 


2A 


FCC 

ERROR 

snot ASCII 

file !!!' 

02440 

516A 


00 


FCB 

0 




02450 




长 






02460 




* file 

name 

save area 



02470 




箐 






02480 

5168 


0008 

NAME 

RMB 

8 




02490 




菁 






02500 



5000 


END 

START 




TOTAL 

ERRORS 00000——00000 







TOTAL 

WARNINGS 

00000 一一 00000 






PROGRAM BEGIN ADDR^SOOO 







PROGRAM END 

ADDR=5172 







PROGRAM ENTRY ADDR=5000 







exec : 

5000 









** output ascii 

file ** 







FILE 

NAME:test 

1 

■« 







output printer 

or screen 

? (p/s) 







*** ASCI I FIIE OUTPUT 
FILE NAME:test f 

10 # te:<t program 
20 # 

30 A^ =<l text program here 1 ! 
40 PRINT A$ 


Ready 
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PA6E 0 Oi ( 


f 


5060 

5036 

SOSA 

504F 


5040 33 
5042 BD 
5044 A6 
504 6 SI 
5048 26 
504A 34 
504C 30 
504E 5F 
504F A6 
505127 
5053 A7 

5055 5C 

5056 Cl 
5058 26 


5000 


5000 20 
5002 20 


5004 C6 
5006 BD 
5003 6F 
500A 5C 
500 B Cl 
5000 23 


50 OF BE 

5012 4F 

5013 97 
5015 BD 
5018 BD 
501 B E6 
50 ID 27 
501F CE 
5022 El 
5024 27 
5026 33 
5028 1183 
502C 26 
502 E 01 
5030 25 
5032 Cl 
5034 23 
5036 8E 
5039 BD 
503C 20 

503E 6E 


DOSE 

D807 

9850 

9BDB 

9C16 

D9A7 

0617 

D64A 


5000 


02 5004 

OB 50 OF 


41 

50 5060 

84 

5A 

F7 5006 


50EE 

BF 

9BDE 
D 807 

01 

FO 500F 
50 E 3 
CO 

18 503 E 

42 

50EF 

F4 5022 
41 

04 5036 

5A 

OA 5040 

5112 

9BDB 

D1 500F 
D4 


* micro word processer 

餐 

普 ! f! NOT POSITION INDEPENDENT !!! 

菁 

OUT EQU $DOSE output 1 character 

し INEIN EQU ¢0807 line input 

CRLF EQU $9B50 output CR を LF 

MESSAG EQU $9BDB output from (X+l)till0 

MESSA2 EQU $9C16 output Breg bytes from (X) 

PROPEN EQU $D9A7 printer open 

PRDUT EQU $D617 printer output 

PRCRLF EQU *D64A printer CRLF 

OPT M,N0B f NOS,P=255 

ORG ¢5000 

START EQU ^ 

* cold start： ¢5000 hot start:$5002 

* 

ERA NEW 

BRA COMO 

菁 

* nen command : cI ear buf fer 

酱 

NEW LDB # r A 

N01 BSR ADDR 

CLP ： f X 

INCB 

CMPB # ^ Z 

BLS N01 

* 

* command execution 

箐 

COMO し DX 林 I1ES1-1 

CLRA 

STA *BF 

JSR MESSAG 

COM1 JSR し INEIN input line 

LDB i,X first chr, 

BEQ COMO 

し DU 特丁 ABLE command tab1e 

C01 CMPB ,U+ 

BEQ EXEC 

LEAU 2 f U 

CMPU TABLE 

BNE 匚 01 

CMPB #^A input ? 

BCS ERR 

CMPB # # Z 

BLS INPUT 

ERR し DX #MES2 — i 

JSR MESSAG 

BRA COMO 

* command jump 

EXEC JMP C ,U3 

* 

* input 1ine to buffer 

* 

INPUT LEAU 2, X 

BSR ADDR 

LDA f U+ 

CMPA # 、 

BNE ERR if not then error 

PSHS X 

LEAX 1,X 

CLRB 

101 し DA ,U+ transfer 

BEQ 102 

STA ,X+ 

INCB 

CMPB 林 255 

BNE 101 


oi 000 
01010 
01020 
01 030 
01 040 
01050 
01060 
010 フ〇 
01 080 
01 090 
01 1 00 
01 110 
01 120 
01130 
01140 
01150 
01160 
0 i 170 
01180 
01190 
01 200 
01210 
01220 
01230 
01240 
01250 
01260 
012 ブ〇 
01280 
01290 
01 300 
01310 
01320 
01 330 
01340 
01350 
01360 
01370 
01 380 
01 390 
01 400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01 600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 


2CO A c o i070F5 
0 1C 3 Elo COB F F 
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06 

41 

30 

98 


86 


9B50 

BF 

41 

E9 

04 

84 

14 

21 

9B 

D_: 、 8E 

3A 

DOBE 

80 

9C16 

9850 

04 

0313 
03 

5A 

D8 

FF6F 


16 

5145 

9BDB 

96 


534 E 
02E/ 
D9A7 
41 
04 
A7 
80 
12 
80 
10 

05AA 
D 617 
10 

FI 

D64A 

04 

5A 

DF 

D64A 

FF33 

FF33 


102 


5010 


PULS 

STB 

BRA 


X 

corn 


M- 


长 subroutine;qet buffer 

簧 


address o-f Breq line 



ADDR 

PSHS 

D 



SUBB 

# # A 



ADDS 

ttBUFFEI 



TFR 

CLRB 

B* A 



TFR 

D, X 



PULS 

D,PC 


* 




* list 

command 



簧 




し I ST 

JSR 

CR し F 



CLRA 

STA 

$BF 



LDB 

林 f A 

5060 

L01 

BSR 

ADDR 



PSHS 

B 



TST 

,X 

509 1 


BEQ 

し 02 

50 A0 


BSR 

FIELD 



TFR 

B，A 



JSR 

OUT 



LDA 

林，： 



JSR 

OUT 



LDB 

，）( + 



JSR 

NESSA2 



JSR 

CR し F 


し 02 

PULS 

B 



TST 

¢313 

509 D 


BNE 

L03 



INCB 

CMPB 

梓 ， Z 

5075 


B し S 

し 01 

50 OF 

L03 

し BRA 

COMO 


if null 
set -field 
output 1in© no. 


output line 


break key test 


菁 

薔 

箐 


subroLit i ne: set tield (output ^ 12 ^ ¢07 ) 


FIELD PSHS 

D,X 

LDX 

SSETF'l 

JSR 

MESSAG 

PULS 

D , X,PC 


* 

箐 


print command 



PRINT 

し DD 

# ^*25 



STD 

$2E7 



JSR 

PROPEN 



LDB 

#^A 


PCI 

PSHS 

B 

5060 


BSR 

ADDR 



LDB 

f X + 

50CF 


BE0 

P03 


P02 

LDA 

,X + 



PSHS 

X 



LDX 

$3AA 



JSR 

PROUT 



PULS 

X 



DECB 


50BD 


BNE 

PC 2 



JSR 

PRCR し F 


P03 

PULS 

B 



INCB 




CMPB 

# ^ Z 

50B5 


B し S 

P01 



JSR 

PRCRLF 

50 OF 


LBRA 

COMO 

50 OF 


LBRA 

COHO 


* 




printer open 


output a line 


* eit i t cammand 


01720 

505rt 

01 730 

505 匚 

01740 

505 E 

01750 


01760 


01770 


01780 

5060 

01790 

5062 

0 i BOO 

5064 

01810 

5066 

01820 

5068 

01830 

5069 

01840 

506B 

01850 


01860 


01870 


oieeo 

匕 06D 

01890 

5070 

01900 

507 1 

01910 

5073 

01920 

50/5 

01930 

5077 

01940 

5079 

01 950 

507 B 

01960 

50/D 

01970 

507 F 

ぃ i 叩 ■_> 

50B1 

01990 

5084 

02000 

5086 

02010 

5089 

02020 

50 tiB 

02030 

508E 

02040 

5091 

02050 

5093 

02060 

5096 

02070 

509 巳 

02080 

5097 

02090 

509 B 

02100 

509 D 

0211 0 


02120 


02130 


02140 

50A0 

02150 

50A2 

02160 

50A5 

02170 

50A8 

02180 


02190 


02200 


02210 

50 A A 

02220 

50AD 

02230 

50B0 

02240 

5003 

02250 

50B5 

02260 

5087 

02270 

50B9 

02280 

50BB 

02290 

50BD 

02300 

50BF 

02310 

50C1 

02320 

5004 

02330 

50 匚 7 

02340 

50 C 9 

02350 

50CA 

02360 

50 CC 

02370 

50CF 

02380 

5001 

02390 

5002 

02400 

5004 

02410 

5006 

02420 

5009 

02420 

50 D 9 

02430 


02440 



c 40 
18 B 


5 7 0 4 o B F F F 5 D F 76D 4 D 7 D F D6D6D DSG 6 c i 3 6 4 E D 5 c D D64 D6764 E05A6D5 c 1 3D66 
3 E 2 3 c c 151 3 B 4 9 c B 3 6 2 B 1 B 8 B E B B 3 7 2 5 c 2 1 38B 3 CFB c 3 8 E 2 A 3 B B 3S2 B 3 5C 2 B 11 
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02450 







02460 

50DC 

8E 

512C 

EXIT 

LDX 

ttMES3—1 

02470 

50DF 

BD 

9BDB 


J5R 

MEBSAG 

02480 

50E2 

39 



RTS 


02490 




* 



02500 




* command 

table 

02510 




簣 



02520 



50E3 

TABLE 

EOU 

簧 

02530 

50E3 


2E 


FCC 

孝 i- 

_ ■ 

02540 

50H4 


506 D 


FOB 

し 1ST 

02550 

5 OF 6 


3F 


FCC 

# フ # 

02560 

50E7 


50 A A 


FOB 

PRINT 

02570 

50E9 


23 


FCC 

す 

0250 (j 

50EA 


5004 


FDB 

NEW 

02590 

50EC 


21 


FCC 

# 1 J 

02600 

50ED 


30 DC 


FDB 

EXIT 

02610 



50EF 

.TftBLE 

EDU 

* 

02620 




普 



02630 




* messages 


02640 




脊 



02650 

50EF 


ODOA 

MES1 

FDB 

$ODOA 

02660 

50F 1 


63 


FCC 

"command し ，？，#,!] or [ *: strlnq 1 

02670 

5110 


ODOA 


FDB 

$ODOA 

026BO 

5112 


00 


FCB 

0 

02690 

5113 


ODOA 

MES2 

FDB 

$ODOA 

02700 

5115 


2A 


FCC 

* 箐 4 簧 ERROR : bad command f 

02710 

512B 


07 


FCB 

$07,0 

02 720 

5120 


ODOA 

MES3 

FDB 

$ODOA 

02730 

512F 


21 


FCC 

"! ! ! exit to system 1 ! * 

02740 

5145 


00 


FCB 

0 

02750 

5146 


12 

BETF 

FCB 

¢12, $07,0 

02760 




箐 



02770 




* buffer $ 300 0-$49FF {26^256=6656 bytes) 

02780 




箐 



02790 



3000 

BUFFER 

EQU 

$3000 

02800 




脊 



02810 



5000 


END 

START 


TOTAL 

TOTAL 


ERRORS 00000--00000 
WARMINGS 00000--00000 


PROGRAM BEGIN ADDR=5000 
PROGRAH END ADDR=5148 
PROGRAM ENTRY ADDR^ 5000 


**** MICRO WORD PROCESSER **** 


ぐ:： COMMAND LIST 
.:1lst 
? : pr i n t 
# : new 
! : ewit 



<< MEMORY USE >> 
$3000-.$49FF :buffer 
$5000 » * ¢5 148 ; pr - ogr am 


<< HOW TO 
mis 


INPUT LINES >> 

is a pen* b 午 ™ インシヲノチ retrun 干ーヲオス a 


く < HOW TD EDIT >> 

.mi 1 st ) T ' v フトラト， v ヲアト、 n — V ルヲイト”ウシテテイ tr イス I レ 
( V Zn 1 ^ 30 ^ 7 } Tit-if テ “ t マ ) 


コノフ"ソシヨウ A IX 


□ 9" ラム T" output シマシヲ ■ 
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$AC 3 7 ： D レジスタ 16 進出力 



アドレス 

レジスタ 


D レジスタの内容を彳6進数4ケタで出力します. 
$ B F — 論理機番 
D レジスタ—出力したい値 

$AC 3 7 
CC , A 


$ AC 3 D : A レジスタ 16 進出力 



ァドレス 
レジスタ 


A レジスタの 内容を〗6進数2 ケタで 出力します. 
$ B F —論理機番 

D レジスタ—出力 I たい値 

$ AC 3 D 
CC , A 


サンプル 


PAGE 00 1 C , ) 

01000 ^ 


01010 




着 V-H 

check sum display 



01020 










01030 





OPT 

M,NOS,NOB, N00, 

PAGE= 

255 

01040 



9BDB 

MEBSAG 

EDU 

%9BDB 

output 

from 

(X+i) till0 

01050 



DOSE 

OUT 

EQU 

SD08E 

one character output 

01060 



DB54 

KEYIN 

EDU 

$DB54 

keyinput with wait 

01070 



9B50 

CRLF 

EQU 

i9B 50 

output 

CR を 

し F 

01080 



AC37 

D160UT 

EDU 

$AC37 

output 

Dreg 

in HEX 

01090 



AC3D 

A160UT 

EQU 

*AC3D 

output 

Areg 

in HEX 

01100 




簧 






01110 

5000 




ORB 

$5000 




01120 



5000 

START 

EQU 





01130 




飫 






01140 




* set 

◦isplay 

address 




01150 




簧 






01160 

5000 

30 

BD 0120 


し EAX 

MESl-l, 

PCR 



01170 

5004 

BD 

9BDB 


JSR 

MESSAG 




01180 

5007 

17 

OOEO 50EA 


し BSR 

GETADR 




01190 

500A 

C4 

FO 


ANDB 

#$F0 

mask LSN 


01200 

5000 

34 

06 


PSHS 

D 




01210 

500E 

30 

8D 0125 


LEAX 

MEB2-1 f 

PCR 



01220 

5012 

BD 

9BDB 


JSR 

MESSAB 




01230 

5015 

1 フ 

0002 50EA 


LBSR 

GETADR 




01240 

5018 

ED 

8D 01A7 


STD 

ENDADR, 

PCR 



01250 

50 1C 

30 

8D 0i2A 


LEAX 

MES3-1, 

PCR 



01260 

5020 

BD 

9BDB 


JSR 

MESSAO 




01270 

5023 

BD 

DB54 


JSR 

KEYIN 




01280 

5026 

91 

79 


CMPA 

# J y 




01290 

502 日 

26 

03 5020 


BNE 

BLOCK 
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01 300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01 430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01530 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01 680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01 BOO 
01810 
01020 
01830 
01840 
01850 
01860 
01870 
01BB0 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
019B0 
01990 
02000 
02010 
02020 
02030 


502A 7C 05AC INC $5AC set printer flag 

* 


* 1 block (256bytes) output 


5020 

35 

10 

BLOCK 

PULS 

X 

502F 

AC 

8D 0190 


cmpx 

ENDADR,PCR 

5033 

1022 

OOAF 50E6 


LBHI 

END 

5037 

33 

8D 0178 


LEAL! 

VSUH,PCR 

503B 

C6 

OF 


し DB 

#*0F 

503 D 

6F 

C5 

B01 

CLR 

B f U 

503F 

5A 



DECB 


5040 

2A 

FB 5030 


BP し 

BOi 

5042 

34 

10 


PSHS 

X 

5044 

30 

8D 0123 


LEAX 

MES4-i,PCR 

5048 

BD 

9BDB 


JSR 

MESSA6 

5048 


10 


PULS 

X 




* 11 

备 

ine (16bytes) output 

5040 

BD 

9850 

LINE 

JSR 

CRLF 

5030 

iF 

10 


TFR 

X,D 

5052 

BD 

AC37 


JSR 

D160UT 

5055 

86 

20 


LDA 

林 * space 

5057 

BD 

DOSE 


JSR 

OUT 

505A 

5F 



CLRB 


505B 

33 

8D 0154 


し tftU 

VbUn,PCR 

505F 

6F 

8D 014F 

* 

CLR 

HBUM,PCR 


* 1 byte output 

箐 


5063 

A6 

80 


BYTE 

LDA 


5065 

34 

02 



PSHS 

A 

5067 

AB 

8D 0147 


ADDA 

HBUM,PCR 

506B 

A7 

8D 0143 


STA 

HSUM,PCR 

506F 

A6 

E4 



LDA 

,S 

5071 

AB 

CS 



ADDA 

B t U 

5073 

A7 

C5 



STA 

B,U 

5075 

35 

02 



PULS 

A 

5077 

BD 

AC3D 



JSR 

A160UT 

507 A 

66 

20 



LDA 

M' space 

5070 

BD 

DOSE 



JSR 

OUT 

507 F 

5C 




INCB 


5080 

Cl 

10 



CMPB 

#¢10 

5082 

26 

DF 

5063 

普 

BNE 

BYTE 

5084 

86 

3A 


NEXT し 

LDA 


5086 

BD 

D08E 



JSR 

OUT 

5089 

A6 

8D 0125 


LDA 

HSUM,PCR 

5080 

BD 

AC3D 



JSR 

AlfeOUT 

5090 

IF 

10 



TFR 

X,D 

5092 

5D 




TSTB 


5093 

27 

08 

5090 


BEQ 

NEXTB 

5095 

AC 

8D 012A 


CMPX 

ENDADR f PCR 

5099 

22 

02 

509 D 


BHI 

NEXTB 

509B 

20 

BO 

5040 


BRA 

LINE 

5090 

BD 

9B50 


NEXTB 

JSR 

CRLF 

50A0 

86 

2D 



LDA 


50A2 

C6 

39 



し DB 

#57 

50A4 

BD 

DOBE 


NB1 

JSR 

OUT 

50A7 

5A 




DECB 


50AS 

26 

FA 

50A4 


BNE 

NBt 

50AA 

6F 

8D 0104 


CLR 

HSUM,PCR 

50AE 

34 

10 



PSHS 

X 

50B0 

30 

BD OOFS 


LEAX 

MES5-1 f PCR 

SOB 4 

BD 

9BDB 



JSR 

HESSA6 

50B7 

33 

8D OOFB 


LEAU 

VSUM^PCR 

50BB 

5F 




CLRB 


50BC 

A6 

C5 


NB2 

し DA 

B f U 

50BE 

34 

02 



PSHS 

A 

50C0 

AB 

8D 00 EE 


ADDA 

HSUM,PCR 

50C4 

A7 

8D 00 EA 


STA 

HSUM,PCR 

50C8 

35 

02 



PULS 

A 

50CA 

BD 

AC3D 



JSR 

At 601 JT 



uuuu 


GETADR 

LDD 

#n 


06 



P5HS 

D 


06 


GA01 

PSHS 

D 

save l:eyi n 

62 



LDD 

2,5 

Dreg-Dreg*16+keyi n 




ASLB 






RQLA 






ASLB 






ROLA 






ASLB 






RQLA 






ASLB 






RD し A 



El 



ADDD 

,S+ 十 


E4 



STD 



DB54 



JSR 

KEY IN 

keyinput 

30 



CMPA 

林 ’0 

test *0 •"す or # A 

ID 

5123 


BCS 

GAO 4 


39 



CNPA 

# f 9 


07 

5111 


BHI 

GA02 


DOBE 



JSR 

OUT 


30 



SUBA 

# ^0 


OD 

51IE 


BRA 

GAO 3 


41 


GA02 

CMPA 

iT A 


OE 

5123 


BCS 

GA04 


46 



CMPA 

# 下 


Oft 

5123 


BHI 

GAO 4 


DOBE 



JSR 

OUT 


37 



SUBA 

林 ， A ベ 0 


89 


Bft03 

TFR 

A,B 





CLRA 



CC 

50EF 


BRA 

GAO1 


06 


GA04 

PULS 

D, PC 

address in Dreg 



# messages 





箐 




ODD A 


MES1 

FOB 

$ODOA 


53 



FCC 

f START 

ADDRESS ノ 

00 



FCB 

0 


ODOA 


MES2 

FDB 

$ODOA 


45 



FCC 

# END 

ADDRESS =* ^ 

00 



FCB 

0 


ODOA 


MEB3 

FDB 

iODOA 


20 



FCC 

* output to printer ? (y/el 

00 



FCB 

0 


ODOA 


MES4 

FDB 

^ODOA, 

SO DO A 

41 



FCC 

•ADD 

+0 +1 +2 +3 +4 +5 +6 

20 



FCC 

f 十 8 +9 +A +B +C +D 4-E +F :! 

00 



FCB 

0 


ODOA 


MES5 

FDB 

$ODOA 


53 



FCC 

# SUM 


00 



FCB 

0 




# 






* wor Ki 

ng area 




簧 




00 


HSUli 

FCB 

0 



下 


cm > I n 


VSUM 


RMB 


16 



し DA 
JBR 
INCB 
匚 MPB 

50BC 

BNE 


し DA 


JSR 

D2 

LDA 


JSR 

50 2D 

LBRA 


* 


# space 

□UT 

#$10 

NB2 

林 ， ： 

OUT 

HSUM.PCR 

A16DUT 

BLOCK 

ay 

$5AC 


nput HEX ADDR in D reg 


2U 

DOBE 


E5 

3A 

DOBE 
0D OC 
AC3D 
FF47 


05 AC 


02040 

50 CD 

02050 

50CF 

02060 

5002 

02070 

5003 

02080 

SOD 5 

02090 

50 D 7 

021 00 

5009 

02110 

50 DC 

02] 20 

5OE0 

02130 

5 0E3 

021.40 


02150 


02160 


02170 

50E6 

02180 

50E9 

02190 


02200 


Q2Z 1U 


02220 

50EA 

02230 

50ED 

02240 

50EF 

02250 

50F1 

02260 

50F3 

02270 

50F4 

02280 

50F5 

02290 

5 OF 6 

02300 

50F7 

02310 

50FB 

02320 

5 OF 9 

02330 

50FA 

02340 

50FB 

02350 

50FD 

02360 

50FF 

02370 

5102 

02380 

5104 

02390 

51Ofc 

02400 

5108 

02410 

510 A 

02420 

51 OD 

02430 

51 OF 

02440 

5111 

02450 

5113 

02460 

5115 

02470 

5117 

024B0 

5119 

02490 

511C 

02500 

51IE 

02510 

5120 

02520 

5121 

02530 

5123 

02540 


02550 


02560 


02570 

5125 

02500 

5127 

02590 

5137 

02600 

513B 

02610 

513A 

02620 

514A 

02630 

514B 

02640 

5140 

02650 

5168 

02660 

516 匚 

02670 

5170 

026 BO 

51BC 

02690 

51A9 

02700 

51A A 

02710 

51 AC 

02720 

51 B1 

02730 


02740 


02750 


02760 

51B2 

02770 

51B3 


ku ■■ 

s 0 

.1 n 

dRs 1 

LT t 

f c R u 

0 0 


b 

1%- 

5 

许簧蚤 


d 

n 

0 D 
N 

簧篑 E 


6 DC 1 6 6 0606 F 9 c 4 4 c 8 98989B93D D 1512D o c- 1 5 12 D o F F o 5 
B B 5 c 2 a B A B 1 7 3 c 3 3E 5 4545454 E EB 8 2 82B B 2 日 2 B 2 B B 1 4 2 3 
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5180 
5190 
51 AO 
51 BO 
5ICO 


5110 UD 81 
5120 4F 20 


5130 52 45 53 53 20 3D 24 00 OD OA 45 4E 44 20 20 20 
5140 4144 44 52 45 53 53 20 3D 24 00 OD OA 20 6F 75 
5150 74 70 75 74 20 74 6F 20 70 72 69 6E 74 65 72 20 
5160 3F 20 28 79 2F 65 6C 73 65 29 20 00 OD OA OD OA 
5170 4144 44 20 20 2B 30 20 2B 3120 2B 32 20 2B 33 


SUM 09 92 72 E2 48 25 90 OB 35 EA 58 BB 46 3D 7F 9D 


02780 51C3 

C>000 

ENDADR 

FDB 

0 

u 2790 


箐 



02800 

IT 1 A ■ m 

5000 

ぶ 


END 

START 


TOTAL ERRORS 00000—00000 
TOTAL WARNINGS 00000——00000 

PROGRAM BEBIN ADDP=5000 
PROGRAM END ADDR=51C4 
PROGRAM ENTRY ADDR^SOOO 


e;<ec ?<H 5000 

START ADDRESS =¢5000 
END ADDRESS =¢5104 
output to printer ? <y/else) 

ADD +0 + 1 +2 +3+4 -*-3 ^6> +7 +3 +9 十 A +B +C +D +E +F s SUM 

5000 30 8D 0120 BD 9B DB 17 00 EO C4 FO 34 06 30 BD : B3 

5010 0125 BD 7B DB 17 00 D2 ED 8D 01 A7 30 8D 012A :4C 

5020 BD 9B DB BD DB 54 8179 26 03 7C 05 AC 3510 AC :60 

5030 BD 019010 22 00 AF 33 8D 0178 匚 6 OF 6F C5 5A :9B 

5040 2A FB 3410 30 8D 0123 BD 9B DB 3510 BD 9B 50 :6fi 

5050 IF 10 BD AC 37 B6 20 BD DO BE 5F 33 巳 D 0154 6F :73 

5060 BD 014F A& 80 34 02 AB BD 0147 A7 BD 0143 A6 :D7 

5070 E4 AB C5 A7 C5 35 02 BD A 匚 3D B6 20 BD DO BE 5C : BA 

5080 Cl10 26 DF 86 3A BD DO BE A6 BD 0125 BD AC 3D sBO 

5090 IF 10 5D 27 OB AC BD 012A 22 02 20 BO BD 9B 50 : BB 

50A0 B6 2D C6 39 BD DO 8E 5A 26 FA 6F SD 0104 3410 :8C 

50B0 30 8D 00 F5 BD 9B DB 33 8D 00 FB 5F A6 C5 34 02 :9D 

50CO AB BD 00 EE A7 8D 00 EA 35 02 BD AC 3D 86 20 BD ;84 

5000 DO 日 E 5 匚 Cl10 26 ES B6 3A BD DO 8E A6 巳 D 00 D2 ; 76 
50E0 BD AC 3D 16 FF 47 7F 05 AC 39 CC 00 00 34 06 34 : A5 

50F0 06 EC 62 5B 49 58 49 58 49 58 49 E3 El ED E4 BD :2A 


o B o 3 o 

2 2 2 4 0 

80D7 0 

3 2 4 E o 

B 4 5 A o 

2 4 5 7 0 

o B 36 c- 

2257 o 

7 0AC-0 

3 2 0E0 

B3D20 
2 4 0 3 0 

-u B o c o- 

2 2 o 20 

6C-D30 

3 2 4 7 0 

B 2 5Fo- 
2 4 5 E o 

OB3BO 

2 2 5 3 - り 

5 o A 5 o 

3 2 3 A o 

Blo 6 斗 

2 4 2 D c 

0 B6E 1 

2 2 465 

4 o B o D 

3222 日 

B 9 o o 8 

23 2 o 5 

o B 5 o 5 I 

2 2 4 2 0 1 


9 4 
8 4 

F 4 
14. 

7 1 

3 4 

o 1- 
/1■ 

8 2 

E 4 
B 5 

0 2 
D 5 

D 1 
B 4 

A 4 
0 5 

23 
2 5 

6 A 

4 0 

1D 
8 0 

E 6 
OB 

5 5 
2 3 

1 c 

4 c 


F o 

+ 2 

Eo 

+ 3 

D o 
+ B 

匚 E 
+ 8 

Bo 
+ D 

fiD 
+ B 

9 7 

+ o 

B 2 
+ 2 

79 

+ 3 

+B 
5 D 

H-l 

45 
+ 2 

3 0 
+ 3 

21 
+ 8 

1 

+ 5 

OB 
+D 

D 8: 
D1 
A5 


M 一 
:53UP^F34C 2 4FB55lEF _ 
c SF 68 .UA 14 DAE 5 1 F I 

知 «_ ■ _ ■'■_ _»■_ 11 _ _ _ 11 -i 


SUM 73 2E 32 BC B3 73 2C 32 EO 76 7A E7 43 05 58 8D : C7 





$8656: 画面表示関係初期化 


檐 能 j 主にサブシステムに関係するパラメータを初期化します. 
パラメ-夕| $1 E 6 —背景色 （ 0〜7 ) 

$ C 3 —表示桁数（40， 80) 

$ 3 0 D — 表示行数 （ 2 0 , 2 5 ) 

$ 3 Q E — スクロール開始 行 （ 0〜2 4 ) 


アドレス 
レジスタ 


$ 3 0 F — スクロール終了 行 （ 0〜2 4 ) 

$310 — ファンクションキー表示フラグ （ 0 :非表示） 

$ 5 A D — 単色表示フラグ （Q :非指定， D 以外：単色指定) 

$ 8 6 5 6 

CC , A ? B , X , Y , U 


解脱 丨具体的には以下のことを行います. 

參 ファンクション キーを， ROM モード用に初期化します. 

争 TAB を8文字ごとに設定します. 

•カーソル表示，オーダ動作， TAB 動作，ページウェイト，プットウェイト 
を才旨定します.オート LF は指定しません. 

春タイマを0時割り込みのみ可能とします， 

• 1_パラメータ I の項の設定にしたがって画面を初期化します. 

着論理機番を〇に設定します. 

♦キーの先行入力を禁止します. 


$ C 8 B C :画面表示設定 


檄 


能 


ラ メータ 


アドレス 




画面表示に関する設定を行います. 

上項 （$ 8 6 5 6 :画面表示関係初期化）と同様です. 

$0 8 BC 

CC , A ， B , X , U 

このルーチンは，サブシステムコマンドの I N I T コマンドを, 


I OS 経由で利用することにより，画面表示に関する設定を行います. 


B 
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$DAF 9 ： 画面機能設定 


m __ mj 画面機能を設定 i ます. 

パラメータ] B レジスタ—サブシステムコマンド C N SCT L の制御フラグ 

bit 5 才 ー ト L F ， 

4 プットウェイト 
3 ページウエイト 

^ する=1，しない=0 

2 TAB 動作 
1オーダー動作| 

0 力ーソル表示 

$ D A F 9 
CC , A 

解 脱| サブシステム コマンド CNSCTL を利用し画面機能を設定します. 


アドレス 
レジスタ 


$ D A F 6 :カーソル表示 


機_能|力ーソルを表示します. 

アドレス I $ DA F 6 
レジスタ| CC , A , B 

W ] 上項 （$ DAF 9 :画面機能設定）を利用して，カーソルの表示を 
サブシステムに指示します. 

具体的には，$ 5 A 8 の内容を B レジスタにセットして上項のルーチンを実行 
します.このため， LOCATE 文でカーソルが表示されないようにしてある場 
合 （$ 5 A 8 の bitO が 0) には，カーソルは表示しません. 
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$ D A E F :カーソル消去 



力ーソルを消去します. 
$ D A E F 
C C , A r B 



カーソル表示同様，『画而機能設定」のルーチンを使用します. 


体的には，$ 5 A 8の内容を B レジスタにセッ 


bit O を0にした後 （A 


NDB 


E ), $DAF 9からのルーチンを実行します 



10 


t 


110 
60 
70 
00 
10000 
10010 
10 〇::〇 
10030 
10040 

} no 50 

t 00 (rtO 
10070 
10080 
1 0090 
10100 
ion o 

J 0 i 20 
i 0130 
1014 1；. 
10150 

i oi ノ 3 〇 

10170 
10180 
10190 
! 0200 
10210 
\0^ M Z0 
.1 0230 
102^0 
102^0 
1. 026 
102 フ〇 

102 BO 


■ qet number without INPIJT 
* (not display # ? 

PRINT 

PR I NT ’’input, number = 11 ; 
GPBUB 10000 

F'R I NT : PRINT - "inpu 〗 number =" 
IF NUMBER-0 THEN END ELSE 40 


REDO 


U NUMBER 


b ubr Dut. i n 0 : get. numbe?r 

input ; 
rlr-H^ t nr y v^r i ab 1 et : 

output s 


non 


NUMBER , COLUMN , DDT, I Nh：^, INK 
RESULTS ^ input sting 
NUMBER - i npiAt number 


EXEC ?<HDAF6: cursor on 

RESU1^T$^ 111 ';C0LUMN=0: DOT=—1 
TNKI^INKEY*: IF INKS：^ ,1TP THE 卜 4 10090 
IMk>AnC(INK$) 

IF m ㈣ H08 THEN GDSUB 1023 0:GOTO 

THEN GOSUB 10230:GOTO 


If INK 吨 H7F 
IF INK^S^HOD 
IF 1_::$二.、 

IF INK*= l リ 
IF INK<?^H30 
BEEP 1 

COLUMN=COL.UMN+ 1 
REGUL.T$^REE3ULT$ ：-1 NK$ 
BEl：P 0 
PR INT INK$; 

GGTil 10090 
， BS or DE し 

IF' cm UMN^O THEN RETURN 
IF COLUMN-DOT THEN DOT::. 
COLUMN 二 CC1LJJ 卜 IN — 1 s RESULT* 


1009 Os ^ BS 
10090: ^ DEL 

THEN EXEC 5/HDAF6: NUMBER=VAL <RESULTS) : RETURN: ^corsor 〇イ 
THEN IF DDT=—1 THEN DOT =[ ： □ し UMN+1:f5ClT0 10170 ELSE 10090 
□R I，:.= ” + *_ THEN IF COLUNN^O THEN 10170 ELSE 10090 
OR INK>^H39 THEN 10090: # l ., 


1 

LEFT$ mESUl 7¢ , COLUMN 


Pm NT CHRf ， (29) 
RETURN 


;CHR$ ¢29) 


[_ 1 n 


i j ) p u t number 
1 nput number 


2345 

2345 


nput. number 
ripu t niiinhor 


i 


户 1T 


=15. 45 




1 つ"^なじ cr 
1T •‘ I a ^ J 


i np 1 j^ number 
mp p t number 


； np» f t n* miber 
inpuL number 






$ 8 6 A 6 : T A B セット 

T AB 動作におけるカーソル停止位置を設定します. 
$ 2 A 2〜$ 2 A B : TA 巳セットマップ 



アドレス $ 2 A 2 $2 A 3 $2 AB 

bit 7 07 07 07 0 


画面彳行位置 



アドレス I $ 8 6 A 6 
I レジスタ| CC . A , B , X 


解_説」サブシステムコマンド TABSET を利用して， TAB 位置を設定 
します. 



マ ） f 1 3 h 

vli. ui. m. J Hu ji a ■■ ua b u. 

3 f 

A J c d mmand : < — , 一 > : cursor m g ve 

3 shift <—,shift —> : cursor move 

6 ' CR : set position 

7 J space : reset position 

8 J ESC : end of set operation 

100 DEFIHT h-Z : DIN BIT ¢7/ : TAB=?vH2A2 

L J 0 ’ display tab posistion 

120 FRINTt FOR 1=^0 ID 7: PRINT ,( + 123456789 11 ; : NEXT 
130 FDR I 二 TAB TO TAB+9 
140 BYTE=PEEK ⑴ 

150 FOR B::「0 TO 7: BIT CB) =SGN ( () AND BYTE) : NEXT 
160 FOR 8-7 TO 0 STEP —1 

1.70 IF BIT (B) ^0 THEN PRINT"-" ; ELSE PR I NT 1 黄 " s 

180 NEXT 

190 NEXT: PRINT: PRINT: F :, RINTCHR^<30) ; CHR$ (30) : 

200 V^CSRLIN:H-0 

2:10 LOCATE H,V: r.RINT ; 

220 A^-INPUT$(1) : LOCATE H,V:PRINT M n : 

23 リ ]F A$=CHRf ベ 28> THEN H 二 H+1:IF H：- 79 THEN H^O: GOTO 210 ELSE 210 

240 IF ¢6) THEN H=H+8: IF H>79 THEN H-79: GOTO 210 ELSE 210 

250 IF 二 CHF く $(29> THEN H=H-1: IF H<0 THEN H=79:60T0 210 ELSE 210 

260 IF ; A$ = CHR 韦 （ 2) THEN H=H — S:IF H<0 THEN H=0:GDTD 210 ELSE 210 

270 ]F A^-CHR$ <13) THEN LOCATE H,V™1;PRINT"*"; : GOTO 210 

2B0 IF A*^CHR$ (32) THEN LOCATE H , V—1PR IN T n … ：GOTO 210 

290 IF A^^=CHR^(27) THE：N 310 

300 GOTO 71 0 

S 1 0 end of 

320 FOR い 0 TO 9 

■:. 二 .u B t TE ::u 


：^0 FOR B=7 TO 0 GTEP 一 1:H=7—Ei—I *8 


350 FLAH^SCF^EEN (H, V -" 

360 IF FLAG=ASC (" 灰 "》 THEN BYTE-E^YTH + 2 A B 
3 70 NEXT 


580 POKE ^H2A2+I 
390 NEXT 
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400 EXEC S/H86A6 
410 END 

420 FOR Zi=0 TO 7 ： BIT(Z1)*SGN((2^21)AND BYTE) : NEXT:RETURN 


RUN 


+1 234567 69+1 2345678 9+1 234567 B9+1 234567 B9+1 2345678 9+1 23456 フ B9+1 234567 89^1 234567 B? 

na^rp 4VH- « ■!L » ■ ■ 匯 ImiMi •■- 画 -w — ■■ mh .. km bum >i«_a ubh h|^b mh 一 ■ hh bh ^mmi oh mm ww mm omh imh em m bmh 一 ■ b« »■ 4mk ■«■■■ ブ Iwi. liLB 9V«. Os» *»■ ■■* 

Ready 

■for i-l to 10:? chr$ (9) ; M ! 11 ; : ne>;t 


Ready 


160 





$ 8 6 C F ： PF キー設定 



PF キーを1 0 個分まとめて設定します. 
X レジスタ—データ先頭アドレス 


データのフオ ー マット 


r - PF 2 の文字数 ，一 PF 3 の文字数 


■ 

L 」 


L_ 

/ 



」 

M 

_3 

[ _ 


一 PFI の: 

- PN の文字列 

文字数 （1 バイト） 

1 

し PF 2 の文字列 1 

-PFIO の 

_PFIO 

の文字列 

文字数 


ア ドレス丨$ 8 6 C F 

レジスタ1 CC , A f B , X ， Y , U 


解 説 I PF キーを10個分まとめて設定します.アボート時（リセット時 
で ROM モードの時も含む）には ， P F キーを下記のデータで，このルーチンを 
使用して設定します. 

X レ :■ 广スラ =¢8766 
addr : byte characters 
r ess 

$876B: 05 4155 54 4F 20 

AUTO 

¢8771: 05 4C 49 53 54 OD 

LIST, 

¢8777: 04 52 55 4E OD 

RUN* 

¢8770: 05 43 4F 4E 54 OD 

C 0 N T . 

¢8782: 06 4C 4C 49 53 54 OD 

L L I S T ■ 

¢8789; OS 4C 4F 4144 OD 

L □ A D - 

*87SF; 05 53 4156 45 22 

SAVE . 1 

乐 8795s 0D.3F 44 4154 45 24 2C 54 49 4D 45 24 OD 

?DATE$ f TIMEf . 

$67A3: OA 53 43 52 45 45 4E 37 2C 37 OD 

SCREEN7,7. 

^87AE: 06 4B 4152 44 43 OD 

H A R D C . 
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$ D 9 D 9 :画面 1 文字出力 


画面に1文字出力します. 

A レジスタ—出力文字コード 
^アドレス| $ D B D 9 
ジスタ丨 CC 

^_雙 J B I 0 S 経由でサブシステムコマンド PUT を使用することにより， 

画面に1文字出力します. 

$ D B 5 4 :キーボード1文字入力⑴ 


m . _キーボードから1文字入力します（キー入力があるまで待ちます）. 

アドレス丨 $DB 5 4 
レジスタ」 CC , A , B , X 
fll 帰情報1 A レジスタ：入力された文字のコード 

解 説 1 BIOS を使用して，キーボードから1文字入力します. 



$ D B 6 D ：キーボード1文字入力 (2) 


I 機 能 I キーボードから1文字入力します.ただし，キーボードバッファカぐ 
空の場合は，$〇〇を返します. 

アドレス]$ D B 6 D 
レジスタ1 CC , A ， B , X 

|~復帰情 報 ] CC レジスタ Z フラグ：1:キーボードバッファが空 

0:入力された文字がある 

A レジスタ：入力された文字コード（ただし Z 这 t のときは，$ 0 

0がセットされます.） 

解 説 B I 0 S を使用して，キーボードから 1 文字入力します， 

注）ここにホした 2つの キーボード 1 文' i : 入力は，そ の 操作をキーボードバッ 
ファに対して行うので注意が必要です. 
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$ DA 6 D : カーソル位置設定 

^ ii ~| カーソル位置を設定します. 

ビ < ラメ—夕 A レジスタ—桁（〇 〜 3 9 or 7 9 ) 

B レジスタ—行（〇〜1 9 or 2 4 ) 

/ドレス I $ D A 6 D 
p ジスタ| CC , A 

^ カーソル位置を，サブシステムコマンド PUT のオーダ$ 

って，設定します. 


$ D A 8 B :画面消去 

gg ] 指定した画面を消去します. 

レ行 メータ B レジスタ— 消去画面 コード〇 :全画面 

1:スクロールモ ー ド画面 

2 :ページモード1画面 

3 : ページモード 2 画面 

$1 E 5—文字色 

$1 E 6—背景色（全画面消去を指定した場合のみ有効） 

アドレス j $D A 8 B (全画面を指定す る 場合には， パラメータ なしで $D A 
8 A を呼んでもよい） 

レジスタ | A ，（$ D A 8 A を呼んだ場合は B も破壊） 

^ W ] サブシステム コマンド E RAS E 2 を 使用して，画面を消去します • 

◄画面 • キーボード関係サブルーチン.サンプル ► 

画面1文字出力，キーボード1文字入力（2)，カーソル位置設定を利用した 
簡、 1 れなゲームです（このプログラムは，ポジションインデイペンデントではあり 
ません）. 
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サンプル 


RASE 001 ( 


0 1 000 


01 Cl 1o 


01020 


01030 


01040 


01050 


01060 


01070 

5000 

01080 


01090 


011 00 


0 1110 


01120 

5000 

01130 

5002 

01140 

5004 

01150 

300 

01151 

50 OB 

01155 

50 OA 

01160 

5C)0C 

01 170 

500 F 

011 BO 

501 1 

01190 

5014 

01 200 

5016 

01210 


01 220 

5017 

01230 

301A 

01240 

50ID 

01250 

5020 

01260 

5022 

01270 

5024 

01280 

5026 



01 300 

507 B 

01310 


01 320 

已 ()2C 

01330 

l 502F 

01340 

5032 

01 350 

5035 

01 360 

5037 

01370 

503 A 

01 380 

503C 


D9D9 

DB6D 

DA6D 

5000 


18 

2B 

01 

6F 

01 

0A 

0081 

7F 

00 C A 
EA 


501A 
502F 

5077 

5016 

5090 

5090 

50DE 

5000 


箐 

长 sampl 0 game 
* 

SOUT 
INKEY 
LOCATE 

START 
* 

* main 

# 

MAIN 


5100 
5104 
51 00 
F5 

F3 

26 

EF 

om 


MCI 

箐 

XH01 

XMOVE 


5017 

5017 

5017 


5101 
5105 
5101 
F5 

5105 

18 

D3 


黄 

YM01 

YMQVE 


>02C 


5041 


DPT 
EQU 
EQU 
EOU 
ORG 
EDU 

program 

BSR 
BSR 
PSHS 
BSR 
PULS 
BCS 
し BSR 
BSR 
LBSR 
BRA 
RTS 

NEG 
し DA 
ADDA 
BED 
BMI 
CMP A 

§9R 

RTS 

NE6 
し DA 
ADDA 
BED 
STA 
CMF.A 
BEQ 


proqram 

presented by H^ NAKAMURA 
M,N0S,N06,P^255 


$D9D9 

^DB6D 

$DA6D 

¢5000 


XMOVE 

YMQVE 

CC 

DSP 

CC 

M01 

PDMOVE 

PDMQVE 

WAIT 

MAIN 


DX 

XX 

DX 

XM01 
X HO1 
#38 
XM01 


DY 

YY 

DY 

YMOl 

YY 

tt24 

YM02 


display 1 byte 

keyinput without wait 

locate k ,y 


k- dir move 
y—dir move 

display bal 

mi ss ? 

paddle move 

wait 

repeat 


10 


e?amp I e game program 

1 player TV-TENNIS 


小：， 


pre&enteci by H, NAKAMURA 


110 

L 20 
I 30 
140 
150 
160 
170 
180 
190 
200 
2 レ） 
220 
230 
240 
250 
26 u 
270 


CLEAR,&H4FFF 
WIDTH 40,23 

LOCATEO,24: INPUT 11 GAME LEVEL (0 
If L.EVRLCO GR LEVEL>10 THEN 120 
LEVEE い LEVEL* 1000 + 1 
POKE 510 0,i : POKE 
POKE ^H5102,10:POKE 
POKE ち H5104,10:POKE 
POKE ?^H5106,20: POKE 

510 8, Os POKE 
ち 10A, し EVE し ¥ 


FAS 1.,10:SLOW) 


LEVEL 


POKE 
POKE 
CLS 

LINE ¢0,0 卜 (38 


101 
ScH 5103 
&H5105 
む H 5107 
を H 5109 


56—] : 'd i? ,d y 

* old >i , y 
n bw k , y 

* pd ,pdd 
score 


256: POKE ム H510B, し EVE し MOD 256 


wait constant 


-h 

0 ! 


LINE < 0 、 0) - < 0 


) 


LINE (38,0)- ¢3 日， 23) 


EXEC を H 5000 

し CJCATE 15,10: PRINT N SCORE^ rf ; PEEK (?<H5108) ^256+ F'EEK (?<H5109) 

FOR 1=0 TO 300 0:NEXT 

PRINT CHR$ +CHR$ (?.H39) 

GOTO 120 


D D 4 D 5 5 7 D 7 0- 9 0 6 B 7 B 1 4/ 9 0- 6 B 7- 7 u 
B8383 fJ 181237 B B22 8 2fcl3 7BB2B 82 
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5 り 90 

5093 

5095 

^097 

5099 

509B 

509E 

50 AO 

50A2 

50 A 4 

50 A 6 

50 A 9 

50AB 

50AC 

50AF 

50 B2 

50 B 5 

5067 

5 0B9 

50BB 

50 BD 

5(:C0 

50C3 

50C5 

5007 

50CA 

50 匚 C 

50CF 

5001 

5003 

5006 

50 D7 

SOD 9 

50DB 


50DE BE 
50 E 13D 


503E 1C 
5040 39 
504170 
5044 
5047 BO 
504A 34 
504 C B6 
504 F AO 
5051 91 
5053 2D 
5055 81 
3057 2F 

5059 AB 
505 B B 7 
50SE 35 

5060 01 
5062 2D 
5064 81 
5«.-66 2E 
5G6B FC 
506 B C3 
506 E FD 
r 10 71 1C 
5073 39 
5074 1A 
50/6 39 

5077 FC 
507 A BD 
5070 86 
507 F BD 
5082 fT, 
5085 FD 
508 8 BD 
508 B 86 
508 D 7E 



013 1 ハ ) 

01 400 
0 i 41 U 
014 7!0 
0 14 30 
Q 14 40 
01450 

ぐ， H ど.■い 

< * 14 7 〇 
01480 
■>1490 

〇 l 5(.MJ 

o rs io 

0 152 
0 1530 
01540 
01550 
i ； il 560 
01^70 
01 580 
01S9C 1 
i> 16GU 
01610 
01 A JO 

0 1630 
01 640 
016S0 
01660 
ul 670 
016B0 
01 690 
01 700 
01710 
01720 
01730 
01740 
01 750 
ul 700 
0177U 
01780 
01790 
〇 1 800 
01810 
01820 
01830 
01840 
01 850 
01 860 
i :、IH /vj 
0 1.880 
01890 
01900 
01910 
01920 
01 930 
01940 
01 950 
01960 
01970 
01780 
01990 
02000 
020 10 
02020 
02030 
02040 
02050 
02060 
020 70 
02080 
02090 
02100 
02 i 10 
02120 


D 7 i 6 6 7 r -16 6 7 c F 7 6 B 1 1 2 7 6 〇 6 D 6 D 6 6 D A 6 6 E 
B2 8 2 8 B282 8 B 2 4 B B B 8 2 8 2BB8C B 8 B 8 c B 5 2 8 7 
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02130 

50E2 

30 

IF 


し EAX 

一 1,X 

02140 

50 E 4 

26 

FB 50 El 


BNE 

WA01 

02150 

50E6 

39 



RTS 


02160 




普 



02170 

5100 




□RG 

$5100 

021 SO 

5100 


01 

Da 

FCB 

1 

02190 

5101 


FF 

DY 

FCB 

一 1 

02200 

5102 


OA 

OLDX 

FCB 

10 

02210 

5103 


OA 

DLDY 

FCB 

10 

02220 

5104 


OA 

XX 

FCB 

10 

02230 

5105 


OA 

YY 

FCB 

10 

02240 

5106 


14 

PD 

FCB 

20 

02250 

5107 


00 

FDD 

FCB 

0 

02260 

5108 


0000 

SC 

FDB 

0 

02270 

5 1 OPt 


0001 

_ 

FDB 

1 

02280 



5000 


END 

STAR r 

TOTAL 

ERRORS 


； tOO— -00000 





TOTAL WARNINGS 0 0»>00 ——00000 

PROGRAM DEGIN fiDDR=5000 
PROGRAM END ADDR=510B 
PROGRAM f^NThY ADDR- 5000 


SCORED 250 


$ D 9 A 7 :プリンタ•オープン 


プリンタを論理番号なしでオープンします. 

$ 2 E 7—オプシヨン指定 （S = $5 3 or W =$ 5 7 ) 

$ 2 E 8 —オプシヨン指定 （F = $4 6 or N = $ 4 E ) 

オプシヨン指定の内容については「ユーザーズマニュアルシス 

テム解説 14 一 9 j を御参照下さい. 

$ D 9 A 7 

CC , A , B , X， Y 

[m W \ このルーチンはプリンタを論理番号なしでオープンすることができ 
ます.しかし，出力の際は下記の2つのルーチン以外は使用不可能です. 


アドレス」 
レジスタ 



$ D 617 :プリンタ • 1文字出力 



アドレス 

レジスタ 


プリンタに1文字出力します. 

X レジスタ —（$5 AA ， $ 5 A B ) 
A レジスタ—出力文字コード 
$ D 617 
CC ， A , Y 


( LDX $ 5 A A ) 


解 説 このルーチンは，プリンタに1文字出力を行います. 

単に1文字をプリンタに出力する場合，出力文字コードを A レジスタにセット 

して ， $D 6 5 9 を呼ぶ （ CC のみ破壊）方法もありますが，その場合，プリン 

夕に対する B AS I C の P OS 関数が正常に動作しません. 
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01 

ri i oi o 

0 1 

irLO-.o 
i〉11 #4 l ' 
ri 10 

u* i v ^ 

010 /o 

01 yjBO 

C ， 1 090 

o i い■い 

o 111 u 
01 120 


01140 
011 ^>0 
01160 
01170 
011B^ 
U119U 


^ M J 


500 h 


01200 

SOOD 

0121 い 

5010 



G 1230 

50 ] b 

01240 

5018 

01：：50 

5019 

01260 

501 B 

01270 

50 ID 

01280 

50IF 

01 290 

5022 

〇 1300 

501'4 

01310 

5025 

013 ⑶ 

5027 

01330 

5029 

01 540 

502 C 

0 1350 

502F 

0 i ZhO 

5030 

013 フ〇 

5032 

01 380 

5034 

01 390 

5036 

014* JO 

5038 



$ D 6 4 A :プリンタ改行 

"« m ] プリンタに対して，改行を行います. 

アドレス]$ D 6 4 A 
レジスタ] CC f A , B f Y , U 

n m ] プリンタに対して，改行を行います. 

具体的には，プリンタに， $0 D , $0 A を出力しますが，このとき $1 E 3 
の内容により，片方のみ出力される場合があります. $1 E 3 にセットされてい 
るコードの文字は，「プリンタ改行」による改行のときには，プリンタへは送られ 
ずに無視します(たとえば，$0 D がセットされていれば， $0 A のみ出力される 
ことになります). 

サンプル 

PAGE 001 ( _ ) 


6 7 6 7 D D 6 E DF4D6D5C 16 D D F4D と 64 
0 : D 8 B & BBBb 438BB 3 4 B 2 B B 430 CA3 
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0141 () 

503 A 

81 

7 F 


CMPA 

# S 7 F 

->kip DEL 

01420 

503 C 

27 

04 

5042 

BED 

し 04 


01430 

S 03 E 

SI 

20 


CMPA 

# # 

skip contorol code 

01440 

5040 

24 

02 

5044 

BCC 

し 05 


01450 

5042 

86 

20 

L 04 

LDA 


space 

01460 

5044 

BD 

D 617 

LOS 

JSR 

PRDUT 


01470 

5047 

86 

20 


し DA 

衿 ， 

space 

〇 1 4 RH 

5049 

BD 

0617 


JSR 

PRDUT 


01490 

504 C 

35 

02 


PULS 

A 


01 500 

504 E 

SB 

10 


ADDA 

#¢10 


01510 

5050 




DECB 



01 WO 

1 

26 

E 5 

5038 

BNE 

L 03 


01 530 

5053 

BD 

D 64 ^ 


JSR 

PRCRLF 


01540 

5056 

35 

02 


PULS 

A 


01530 

5058 

4 C 



[NCA 



U 11 : め u 

505 V 

dl 

10 


L；HPA 

#$10 


Ol 570 

505 B 

/ 

jLO 

D 3 

5030 

BNE 

L 02 


01580 

5050 

39 



RTS 



01590 




- h - 




01 hOO 




* subroutine : 

toutput 

fireq in HEX 

011 > 10 




长 




01620 

505 E 

81 

OA 

HEXQUT 

CMPA 

林 $ 0 A 


01 630 

tiObO 

こ」 

〇‘） 

5064 

BCS 

HOI 


016 叫 

5062 

3B 

07 


hDDh 

#^07 


〇] 650 

SG 64 

8 B 

*-T- - 

HOI 

ADDA 

#$30 


01 660 

5066 

:，E 

D 61 ? 


JNP 

PRGLIT 


0 16 7 〇 




★ 




c > 1 680 



5000 


END 

START 


TG i AL 

ERRORS 

; 0 ( 

on —一 mono 

r V B f =" "W -H 脊 ■ • 




TOTAL . 

WARNINGS 

00000 — 

-00000 





PRUURAM BE 6 TN ADDR ^ 5000 
r - RUGRA 卜 I END ADDR =5068 
PKUUFv.AN ENTRY A DDR =5000 


t?K Pi 




01 2 3 4 ^ 676 ^ A B C D E F 


X 円苯 MB_>l'^ 〒 rfiE»J:Hl:li 

U t h rr メ J rr* •♦ 争 # 0 \ / 

s-f 乙メ trnImrujb レ Q r■/ こ 0 
ヴチツテトす二 ^: ネノ八ヒフ^ホマ 
i 7 ィ r. h 河乃千 ^ ヴ n ” シ r<: t :> 
c r J ... *ヲ ?- 1 ゥ 7 ォャユ 3?. 
i h T 卜 ! I I i r n L ^ , 

一 11 _1 I ■ M 4 

p nrLnt u V w K y n r、-- }-\f 

a b c d e fT Q h i j k ] m n Q 

PQRSTUU wxyzl¥j.^ 
@ABCDt-rGHIJKLMNO 

.0- ] 2 3 4 ^ 6 78 9 : ; ^ + .^' ? 

o123456 7 8 9Au G DEF 
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$ E 2 E 9 ： 2 4 時間計セツト 


機 


W 



2 4時間計を指定時刻にセットします. 

U レジスタ—パラメータ 先頭 アドレス 


U レジスタ相対値 


0 :時 （ 10のケタ，〇〜2 ) 
1:時 （ 1のケタ，〇〜9 ) 

2 :分 （ 10のケタ，〇〜5 ) 

3 :分 （ 1のケタ，〇〜9 ) 

4 :秒 （1 0のケタ，〇〜 5) 


5 : 秒 （ 1 の ケタ， 〇〜 9 ) 
アドレス I $ E 2 E 9 
レジスタ1 CC . A , B , X， U 


解 説 I 2 4時間計を U レジスタが示すアドレスから，6バイトにあるパラメ 
—夕にしたがってセットします. 


$ E 3 5 0 : 2 4時間計読み出し 

^2 4時間計の示している時刻を読み出します. 

パラメ— 夕」 U レジスタ—復帰情報エリア先頭アドレス 

アドレス]$ E 3 5 0 ($ E 3 4 D にすると U レジスタは$ 2 F 4にセツ，卜 

され，$ 2 F 4〜$ 2 F 9に読み出します） 

レジスタ I C C , A , B , X 

H ■埽 If 報上項 （ $ E 2 E 9 : 2 4時間計セット）のパラメータと同じです • 

^ — 說] 2 4時間計を示している時刻を読み出し， U レジスタからの6バイ 

卜にセ‘：/卜します. 
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サンプル 


二 


:>U 1 


) 1〇 00 


01010 


* 1 1 m 0 

SE?t シ 

display 


01 020 


¥r 




01 030 



OPT 

M ， NOB , 

NGG,P=255 

0 j 〇/!〇 

E2E9 

BET I ME: 

EQU 

漆 E2E9 

set time 

0 t 0 L 50 

E 350 

GE1IML 

EQU 

犯 330 

get tlme 

0 J. 060 

D072 

IN 

EQU 

072 


0In/ 

DB6D 

INKEY 

EDU 

^DB6D 

k e y l n p li t 

03 0SO 

D09E 

OUT 

EQU 

$D08E 


U1 090 

9BDB 

MESSA!3 

し QU 

*9BDB 


01i00 5000 



0R6 

■ 化 , 000 


0111 0 

500 U 

SI MiT 

EQU 



01 120 






01130 

01140 


♦ t i me 

* 

^et 



01150 500 _) 30 

BD 0060 

SET 

LEAX 

MESl-l 

,PCR 


1 i 60 
i 11170 
01180 
01 190 
01 200 
01210 
01220 
L)1 ■ ふ .;>(-1 

yj ) 24 C/ 


\ -a 

)l 

11 リ 


r i | /7 * i t 

0 J 6 40 
0 16 SO 
< j 1 odO 
0 1 o 0 
0 1 680 


without wait 


500*1 
3007 
SO OB 
500 C 
ItiUUH 
5011 
3013 
3015 
5 <j 17 


BD 

33 

5F 

BD 

01 

‘U 

81. 

22 

BD 


9BDB 

BD 008 ス 


0072 

30 

ED 

39 

E9 

D08E 


SOI 


5000 


5000 


ぃ 12 SO 

50 1A 

80 

3(；i 


01 260 

r-oic 

A 7 

C5 


01270 

501E 

5C 



012B0 

501F 

C] 

06 


01290 

5021 

27 

OB 

502 E 

01 300 

5023 

C5 

01 


01:!■ K» 

nr /"i q cl ， 

26 

t J 

500 C 

01320 

5027 

86 

3A 



5029 

S 02 C 


BD 

20 


D08E 

DE 


50 OC 


JSR 

LEf\U 

CLRB 

■JSR 

CMPA 

BCS 

CMPA 

BHI 

JSK 

SUBA 

STA 

INCB 

ChPB 

BED 

B1 Tfc 

BNE 

L DA 

JSR 

BRA 


MLBSAG 

TiriE,PCR 

IN 

SET 

# 

SET 

our 
# f 0 
B,U 

#6 
502 
#$01 
SOI 
# " ; 

OUT 

SOI 


t；：50 

502 E 

BD 

E2E9 


802 

JBR 

SET IME 

set time 

, w - HI j- 1 *%, 

(f I .'-Ltjt ) 





箦 




013 70 





* t i me 

d i sp1 ay 


01 380 





雀 




01 390 

5031 

30 

8D 0054 

DISP 

LEAX 

MES2-1, 

PCR 

01400 

f r\ ブ 【:. 

BD 

9BDB 



JSR 

MESSA6 


01410 

5030 


8D 0052 


LEAU 

TIME,PCR 

01420 

503 じ 

BD 

E 350 



JSR 

GET IME 

qet time 

01430 

503 F 

5F 




CLRB 



01440 

5040 

A6 

C5 


D01 

LDPi 

B,U 


0145«：> 

5042 

8ti 

■"SP 1 

■ 上■リ 



ADDA 

# N；j 


01 460 

5044 

BD 

D03E 



JSR 

OUT 


014/0 

5047 

5C 




INCB 



、"舄 eo 

5048 

Afc 

C5 



LDA 

B,U 


01490 

504 A 

SB 

30 



ADDA 

+T 0 


0] 【500 

504C 

BD 

DO BE 



JSR 

OUT 
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503B 
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01540 
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0 L 560 
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BD 
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no _ return 
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ID 
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FCB 

FCL 

F 匚 Ei 
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f PRESENT TINE = _: 料：神 ， 
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END 


TOTAL ERRORS 00000 一一 00000 
T OT A し WARNINC-iS 00000 ™ — C»0000 


$12,21i5locate 21,5 

0 

START 


r'ROGRAH BEGIN ADDR^5000 
PROGRAM END ADDR=5093 
PROGRAM ENTRY ADDR=5000 


exec も H 5000 


PRESENT TIME = 22:48;04 

heady 
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$ E B E 5 : PSG イニシャライズ 


機 

能 

ァ 

ドレス 

レジスタ 


PSG をイニシャライズします. 
$ E 巳 E 5 
CC 


解 説 」 P S G の各レジスタを初期化します.具体的には，レジスタ0 7に 
$ F 8 を，その他のレジスタに0をセットします. 


$ E B C F : PSG レジスタ•セット 


機 能 I 指定した PSG のレジスタに，値をセットします. 

パラメ ー* 夕 A レジスタ—レジスタ番号 （ 0 〜 13 ) 

B レジスタ—値 
アドレス I $ E B C F 
レジスタ I CC 

解 説 I 指定した P SG のレジスタに，値をセットします.各レジスタの機 
能等については，「ユーザーズマニュアル j を御参照下さい.具体的には，$ FD 
0 D, $FDOE を操作してレジスタを選択し，データを書き込みます. 


サンプル 
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簧 
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□UT 
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LDB 
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B 


INCB 

CMPB 
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肯 
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SET LEAX 
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JSR 

MESBA6 



JSR 
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CMPA 
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SOI 
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LDB 

#10 



MUL 
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JSR 

IN 



JSR 

DUT 



SUBA 

# # 0 
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* subroutlne: 
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01490 

5056 

01 500 

5057 
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01850 

50AB 

26 

F5 
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BNE 
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01860 
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BD 

DOSE 
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OUT 
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01 870 

50B0 

5F 




C し RB 



01S80 

50B1 

34 

04 



PSHS 

B 


01890 

50B3 

BD 

0072 


BO1 

JSR 

IN 


01 900 

5006 

81 

31 



CMPA 
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0191 0 

50B8 

27 

OA 

5004 


BED 

BO 2 


01920 

50BA 

81 

30 



CMPA 

# # 0 


019^-0 

50 BC 

iT"^ -】 

06 

50C4 


BED 

B02 


01 940 

50BE 

81 

OD 



CMPA 

#¢00 


01950 

5000 

26 

FI 

50B3 


BHE 

B01 


01960 

■50C2 


84 



PULS 

B,PC 


01965 

50C4 

BD 

DOSE 


B02 

JSR 

OUT 


01970 

5 DC 7 

80 

30 



SUBA 

# ' 0 


01980 

50C9 

46 




RORA 



01990 

5 OCA 

69 

E4 



ROL 

T s 


02000 

50CC 

20 

E5 

50B3 


BRA 

B01 


020 10 





餐 




02020 

50CE 

BD 

D08E 


HEX 

JSR 

OUT 

if he>t 

02030 

50 D1 

5F 




C し ftB 



02040 

5002 

34 

04 



PSHS 

B 


02050 

50 D 4 

BD 

0072 


HOI 

JSR 

IN 


02060 

5007 

81 

OD 



CMPA 

#$0D 


02070 

5009 

26 

02 

50DD 


BNE 

HO 2 


02080 

50DB 

35 

84 



PULS 

B,PC 


02090 

50DD 

81 

30 


H02 

CMPA 

# f 0 


02100 

50DF 

25 

F3 

5004 


BCS 

HOI 


02110 

50E! 

81 

39 



CMPA 

林 ’ 9 


02120 

50E3 

フス 

OF 

50F4 


BLS 

HO 3 


02130 

50E5 

81 

41 



CMPA 

A 


02140 

50 E 7 

F 11 

EB 

5004 


BCS 

HOI 


02150 

50E9 

81 

4fc 



CMPA 

# # F 


02160 

50EB 


E7 

5004 


BHI 

HOI 


02170 

50ED 

BD 

D08E 



JSR 

OUT 



50F0 

BO 

, 

こ *7 



SUBA 

林 HO 


02190 

50F2 

20 

OS 

50F9 


BRA 

H04 


02200 

50F4 

BD 

D08E 


HO 3 

JSR 

OUT 


02210 

50F7 

80 

30 



SUBA 

# * 0 


n222() 

50F9 

68 

E4 


HO 4 

AS し 

,s 


02230 

50FB 

68 

E4 



AS し 

,s 


02240 

50FD 

68 

E4 



ASL 



02250 

50FF 

68 

E4 



AS し 

，s 


02260 

5101 

f\B 

E4 



ADDA 

， s 


02270 

5103 

A7 

E4 



STA 



02280 

5105 

20 

CD 

50D4 


BRA 

HO1 


02290 





* 




02300 





* messages 



02310 





* 




02320 

5107 


ODOA 


MES1 

FDB 

*ODOA 


02330 

5109 


2A 



FCC 

• * PSG 

lnitialized * 

02340 

511C 


00 



FCB 

0 


02350 

51ID 


ODOA 


MES2 

FDB 

¢000 A 


02360 

51IF 


2A 



FCC 

_ * REGISTER VALUE ヰ ， 

02370 

5131 


ODOA 



FDB 

$ODOA 


02380 

5153 


00 



FCB 

0 


02390 

5134 


ODOfi 


MES3 

FDB 

*ODOA 


02400 

5136 


20 



FCC 

* 

REGISTER NUMBER 1 

02410 

514E 


00 



FCB 

0 


02420 

514F 


ODOA 


MES4 

FDB 

$ODOA 


02430 

5151 


20 



FCC 

^ VALUE 

($HH or XB- .B) = # 

02440 

5168 


00 



FCB 

0 


02450 





簧 




02460 

5169 


00 OE 


RES 

RMB 

14 

register ve area 

02470 





簧 




02480 



5000 



END 

START 


TOTAL 

E RR0RS 00000——00000 





TOTAL 

WARNINGS 

00000—— 

譽 '* • ~ _«e —i 

> 





PROGRAM BEGIN ADDR -5000 
PROGRAM END ftDDR^5176 
PROGRAM ENTRY ADDR^ 5000 



$ D B 3 F : BEEP ON 
$DB44：BEEP OFF 


機 

有1 

ア1 

ドレス 


レジスタ 


B E E P 音をコント ロールし ます. 

$DB 3 F ： 日 EE P 音を鳴らします.（連続） BEEP 1 に相当. 
$ D B 4 4 ： BEEP 音を止める， B E E P 〇に相当. 

CC, X 


解 説 BIOS を使用して， BEEP 音をコントロールします. 


$DB38：BEEP 

_«_ t|] BEEP 音を一定時間鳴らします. 

「アドレス ] $DB 3 8 
レジスタ ] CC, A 

BAS I C の BEEP に相当する動作をします.具体的には，ファ 
イル番号0で，$07 ( BELL ) を出力します. 


$D7 7 8 : MOTOR ON 
$D 7 7 B ： MOTOR OFF 


嫌 

能 


ドレス 


レジスタ 


カセット テー プの モータをコ ント ロールし ます- 

$D7 7 8 : MOTOR ON 
$ D 7 7 B ： MOTOR OFF 
C C, A 


解 説 BIOS を使用して，モータを コントロール します. 
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$ E B 7 7 ： マルチページ機能設定 



マルチページレジスタに値を設定します. 

A レジスタ—アクティブ V R AM コード （0 〜 7) 

B レジスタ—デイスプレイ V R A N 1コード （0 〜 7) 


V R A M コド ： bit 〇 


B 指定する画面のビットを 
R ’1’にする. 


アドレス 

レジスタ 


$ E B 7 7 
C C , A , B 



G 


解 説 I マルチページレジスタに値を設定して，マルチページを実現します. 
パラメータを設定するにあたり注意する点は，指定する画面のビットを’1’とす 
ることです.したがって $ FD 3 7に書き込む場合とビットの設定が逆 （$FD 
3 7に書き込む場合には，指定する画面のビットを ’0’ にする）となります. 

また，このルーチンは，サブ C PU のコマンド動作が終了（サブ CPU がレディ 
になる}を待って，マルチページレジスタに値を設定します， 


サンプル 


PAGE 001 ( 


01000 

簧 



01010 

* set active 

VRAM 

display VRAH 

01020 

* 



01030 

OPT 

M,N0S f 

N0G,P=255 

01040 

EB77 SCREEN EQU 

$EB 77 

set vram flag (SCREEN 


01 050 



D08E 

□UT 

EQU 

*D08E 


0 i 060 



0072 

IN 

EQU 

SD072 


01070 



9BDB 

MESSAG 

EQU 

S9BDB 


01 080 

5000 




□RG 

¢5000 


01090 



5000 
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EQU 

朞 


oil or> 




篑 




01110 

5000 

30 

BD 0032 


LEAK 

MES1-1,PCR set 

active VRAM 

01 120 

5004 

BD 

9BDB 


JSR 

MESSAG 


Oil30 

5007 

BD 

11 501A 


BSR 

INPUT 


01140 

5009 

34 

04 


PSHS 

B 


01150 

500 B 

30 

8D 003 F 


し EAX 

MES2—1，PCR set 

display VRAM 

0 U 60 

50 OF 

BD 

9BDB 


JSR 

MESSAG 


01170 

5012 

8D 

06 501 A 


BSR 

INPUT 


o i i so 

5014 

35 

02 


PULS 

A 


01190 

5016 

BD 

EB77 


JSR 

SCREEN set VRAM flag 

01200 

5019 

39 



RTS 



01210 




箐 




01220 




* subroutines 

input binary in 

Dreg 

01230 




箐 




01240 

501A 

5F 


INPUT 

CLRB 



01 250 

501B 

34 

04 


PSHS 

B 


01260 

5010 

BD 

DO 7 2 

101 

JSR 

IN 


01270 

5020 

81 

30 


CMF'A 

#*0 
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01280 

5022 

27 

04 

5028 

BED 

102 


01290 

5024 

81 

31 


CMPA 

# g 1 


01300 

5026 

26 

F5 

501D 

BNE 

101 


0 131 a 

5028 

BD 

D08E 

102 

JSR 

OUT 


01 320 

502B 

80 

30 


SUBA 

林 X ， 


01 330 

502 D 

4£> 



RDRA 



01340 

S02E 

69 

E4 


ROL 

f S 


01350 

5030 

5C 



INCB 



01 360 

5031 

匚 1 
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CMPB 

#3 


01370 

5033 

26 

E8 

5010 

BNE 

101 


01380 

5035 

35 

日 4 


PULS 

B,P 匚 


01390 




箐 




01400 

5037 


ODOA 

MES1 

FDB 

$ODOA 


01410 

5039 


20 


FCC 

* active VRAM 

=GRB 

01 420 

S04B 


ID 


FCB 

¢10 , ¢10,¢10 


01430 

504 E 


00 


FCB 
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01440 

504F 


ODOA 

MES2 

FDB 

*ODOA 


01450 

5051 


64 


FCC 

'display VRAM 

二 GRB 

0 i 460 

5063 


ID 


FCB 

* 1D, * 1 D , $ 1D 


01470 

t (i & 6 


00 


FCB 

0 


01 480 








01490 



5000 


END 

START 


TOTAL 

ERRORS 

； 00000——00000 




TOTAL 

WARNINGS 

00000… 

-00000 





PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=5066 
PROGRAM ENTRY ADDR=5000 


exec: 5000 

active VRAM = 100 
display VRAM -100 
Ready 


178 



$ C 8 0 A :パレットレジスタ機育巨 


機 能 I パレットレジスタに値を設定します. 

B レジスタ—パレットコード （1 〜 7) 
A レジスタ— カラーコード （0 〜 7) 
アドレス I $ C 8 0 A 
レジスタ丨 CC，A 



解 説 | このルーチンを使用することによリ，カラーパレットを任意の色に害 IJ 
り付けることができます. BASIC の COLOR = ( B , A ) に相'当します. 

具体的には，パレットコードにより I / O アドレスを決定し，カラーコードを 
書き込みます. 

ハ。 レットレジスタにおいては， パレッ トコード〇にも任意の色を設定できるの 
ですが，この ルーチンでは，ハ。 レットコード0には常にカラーコード〇 (黒）を 
設定します.ハ。レットコード0に黒以外の色を設定したい場合には，$ FD 3 8 
にカラー コー ドを書き込みます.これにより，疑似的にボーダー（帰線区間）力 
ラーの設定ができます. 
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5029 

BD 

D08E 



JSR 

OUT 



01290 

502C 

80 

30 



SUBA 

# J 0 
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01 300 

502E 

34 

02 


PSHS 

A 

01310 

5030 

86 

29 


LDA 


01 320 

5032 

BD 

DOSE 


JSR 

OUT 

01330 

5035 

33 

06 


PULS 

A,B 

01340 

5037 

BD 

C80A 


JSR 

PA し £T set palette 

01350 

503 A 

39 



RTS 


01 360 







01370 

503 B 


ODOA 

MEB 

FDB 

*ODOA 

01380 

5030 


73 


FCC 

set palette ; CO し 0R=( 

01390 

5054 


00 


FCB 

0 

01400 




篑 



01410 



5000 


END 

START 

TOTAL 

ERRORE 

: o o000—00Q 0 0 





TOTAL WARNINGS 00000——00000 


* 


PROGRAM BEGIN ADDR^= 5000 
PROGRAM END ADDR=5054 
PROGRAM ENTRY ADDR^= 5000 


exec ?<H 5000 

set palette : CO し OR ヒ （ 4,7> 

Ready 
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$0495：大文字変換 


英小文字を英大文字に変換します. 

A レジスタ—文字コード（任意） 

アドレス I $ C 4 S 5 
レジス"^] CC , A 

A レジスタ：変換された文字コード 

パラメータで与えられた文字が，英小文字であれば，英大文字に変 
換します.英小文字以外の場合には，この変換はされません， 


$94 FD ， $9506:文字チエック 

与えられた文字か，，指定された種類の文字かどうか判別します. 
A レジスタ—文字コード（任意） 

$ 9 4 F D ：英大文字であるかを判別 
$ 9 5 0 6 :数字 （ 0〜9 ) であるかを判別 

レジスタ I C C 

復帰情報」 CC レジスタ•キヤリーフラグ （ bitO ) 

指定された種類の文字だった場合 . 1 

指定された種類の文字でなかった場合……〇 


サンプル 

PAGE 001 ( 

01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 

01100 5000 

01110 

01120 

01130 5000 

01140 5004 

01150 5007 

01160 50 0A 

01170 50 0C 

01160 50 OE 


零 


赘 

铸 character 



DO 7 2 

IN 

OPT 

EQU 


DOSE 

OUT 

EDU 


9BDB 

MESSAG 

EQU 


94FD 

ALPHA 

EQU 


9506 

NUMBER 

EQU 


C495 

CAPS 

EQU 


5000 

START 

* 

LOOP 

ORG 

EQU 

30 

BD 004 E 

し EAX 

BD 

9BDB 


JSR 

BD 

0072 

し 01 

JSR 

81 

OD 


CMP A 

27 

44 3052 


BEQ 

81 

20 


CMPA 


check 

NOS f P^2SS 
¢0072 
$DOBE 
$9BDB 
$94FD 
¢9506 
$C495 
¢5000 

簧 

MES1-1 f PCR 

MESSA6 

IN 

#¢00 l i CR then end 

し 05 

s control code skip 


m _ m 

パラメー タ 

アドレス 


復帰情報 
1 ^ 


m __ m 

搫 mmm m 

✓ \ フメータ 
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t:u 190 

5010 


F5 5007 


DCS 

L01 



01200 

5012 

01 

7F 


cnpfi 

#$7F 

DEL 

skip 

01210 

5014 

27 

FI 5007 


BEQ 

L01 



01220 

5016 

BD 

DOBE 


JSR 

OUT 

echo hmc. k 

01230 

5019 

BD 

C495 


JSR 

CAPS 

capi tal 

01240 

501C 

34 

02 


PSHS 

A 



01250 

501E 

30 

BD 0049 


し EAX 

MES2-1, 

PCR 


01260 

5022 

BD 

9BDB 


J SR 

MESSAB 



01270 

5025 

A6 

E4 


し DA 

,s 



01280 

5027 

EHD 

DOBE 


JSR 

OUT 



01 290 

502 A 

30 

8D 004 C 


LEAX 

MES3-1 f 

PCR 


01300 

502 E 

BD 

9BDB 


JSR 

HESSAG 



01310 

30 31 

35 

02 


PULS 

A 



01320 

5033 

BD 

94FD 


JSR 

ALPHA 

alphabet フ 

01330 

5036 

25 

06 503E 


BCS 

L02 



01340 

5038 

30 

8D 0044 


LEAX 

MESA-1, 

PCR 

yes,aIphabet 

r ， 1 ス 5 〇 

503 C 

20 

OF 504D 


BRA 

L04 



01360 

503 E 

BD 

9506 

L02 

JSR 

NUMBER 

number ? 

01370 

3041 

25 

06 5049 


BCS 

L03 



01380 

5043 

30 

BD 0044 


LEAX 

MESN-1, 

PCR 

yes,number 

01390 

5047 

20 

04 5040 


BRA 

L04 



01400 

5049 

30 

BD 0040 

し 03 

し EAX 

MESX-1 f 

PCR 

el se 

0 1410 

5040 

BD 

9BDB 

L04 

J5R 

MEBSAG 



01420 

5050 

20 

AE 5000 


BRA 

LOOP 

next 

01430 

5052 

39 


し 05 

RTS 


end 

of program 

01440 




箐 





01 450 








Oi 460 




箐 





01470 

5053 


ODOA 

MES1 

FOB 

*ODOft 



01 480 

5055 


20 


FCC 

J input 

one 

character = • 

01490 

506B 


00 


FCB 

0 



01500 

506C 


ODOA 

MES2 

FDB 

¢000 A 



01510 

5n6E 


20 


FCC 

/ character 

V 

01520 

507 A 


00 


FCB 

0 



01530 

507 B 


27 

MES3 

FCC 

r is / 



01540 

5080 


00 


FCB 

0 



01550 

508 1 


41 

MESA 

FCC 

^ALPHABET- 

i 

01560 

soee 


00 


FCB 

0 



01570 

508C 


4E 

MESN 

FCC 

rNUMBER <0. 

,9) 〆 

01580 

509 A 


00 


FCB 

0 



01590 

509& 


6E 

MESX 

FCC 

^neither ALPHABET nor NUMBER 

01600 

50B7 


00 


FCB 

0 



01610 




箐 





01620 



5000 


END 

START 




TOTAL ERRORS 00000 ——00000 
TOTAL WARNINGS (Xm ； h ； h ；> 00000 

PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=50B7 
PROGRAM ENTRY ADDR=5000 


0 x 0 c 5000 

input one character =5 
character is NUMBER <0, .9>• 

input one character =Q 
character < Gr is ALPHABET- 
input one charscter =q 
character ^ is ALPHABET, 
input one character =e 
character J E r is ALPHABET, 
input one character =@ 

character ■ 择 ， i^ neit ^ ier rlkHABET nor NUMBER - 
input one character = 

Ready 
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Subroutines 


本章は ， BAS I C の ROM 上に存在する各種のルーチンのうち，数値演算関 
係のものでユ ー ザ ー の使用頻度の多いものを解説します. 

本章では，各ルーチンを用途別に分類し，同種のものはなるべくまとめて解説 
しています.なお，本章で示されるルーチンは ， F —BAS I C のワークエリア 
を破壊するものが多いので，利用する際には，十分な考慮が必要です.また，前 
述した一行出力 （1)($ 9 BDB ) のルーチンは， FAC 1(後述）を破壊しま 
すので注意して下さい. 

◄各項目のみかた ► 

レジスタ，解説等は，これまでの章と同じです.ただしサンプル I のマシン語 
プログラムは，これまでの章と違い，一部を除いてポジションインディペンデン 
卜（位置独立）ではありません.これは，プログラムをなるべく複雑にしないよ 
うにするための処置です. 

また，解説では触れていませんが，各ルーチンにおいて何らかのエラー （0 
で割る ， Type Mismach 等}が生じた場合には ， BAS I C のエラー理を行い， 
BAS I C のコマンドレべルへ制御が移りますので注意して下さい. 








FAC の構造 


F —BAS IC インタプリンタは ， C PU である 6 8 0 9 によって実行されて 
いるわけですが，6 8 0 9は浮動小’数の演算機能を持っていません.そのため， 

F — BASIC では ， FAC (フローティング•アキュムレータ）と呼ばれる仮 
想のレジスタを R AM 上に用意し，この F A C に対し各種の演算を施します. 

この FACS , メモリ上に3つ確保されています.以下にその構造を示します • 

◄実数の場合 ► 

アドレス ビット 

相対値 7 6 5 4 3 2 1 0 

指数部 型 I $ 04 or $ 08 


r 単精度のときの仮数部ぶ 


倍精度のときの仮数部 


符号部 





j FAC のアドレス 

型のアドレス 

FAC 1 

$74〜 $7 C 

$ 17 

2 

$82〜 $8 A 

$5 D 

3 

$28- $30 



指数部 


実数を2進数の浮動小数点表現した場合の指数が入ります， 

$ 8 0のゲタはかせにより値を表示しています （2 の補数表現 


ではありません）. 


$01 


F 




1 


8 0 


4 # # V ■ 1 ■- 


2 


0 


$8 


$00は仮数部の値 
に関係なく，実数値 
0を示すものとして 
扱われます. 




FF 
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仮数部 倍精度実数の場合は7バイト，単精度実数の場合は3バイトが 

使用されます， 

仮数部は符号なし2進数で示されています.浮動小数点表現で 
は，仮数部の最上位ビットは常に1となるので，アドレス相対値 
1の最上位ビットは常に1となります （ ただし， F A C が0を示 
すときは例外です). 

符号部 相対値8の最上位ビットが仮数の符号を示します. 0のとき正， 

1のとき負を示します. 

指数部を e ， 仮数部の各ビットを△，符号部を土で示すと，実際の数値は， 

f ■常に1 . 

X — i. △△△△△.△△△ X 2 e 

となります.しかし，例外として，奥数の0は，指数部を0として示します. 


◄整数の場合 ► 



整数 ■ 



アドレスは実数の 

場合と同じです。 


整数値 2の補数表ボによりボします, 
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5 リ 25 
?nri5 


00 フ 4 
17 
02 

OR 5 〇スス 

02 

IB 50 4A 

04 

17 S04A 
04 

08 503 F 

04 

08 504：- 

08 

OB 504A 
03 

IB 505 E 

C5 

AC3D 

08 5052 

5F 

008 E 
D08E 
20 
D08F 


C し RB 
LDU 

し CJDP LDA 

CMP A 

BME 

CMPB 

B し 0 

CNPB 

BHS 

L 01 criPA 

BNE 

CfIPB 

BLQ 

CMPB 

BNE 

L02 CMPA 

BEQ 

L03 LDA 

JSR 

BRA 

L.04 LDA 

JSR 

JSR 

L05 LDA 

JSR 

INCB 

CMPB 

BNE 

BRA 


'DOTU, 

tL\4D 

L. U K 

D9 


STX 


普 

RTS 

ODOA 

PROMF 「 

FDB 

20 


FCC 

00 


FCB 

6F 

ME8 

FCC 

00 

脊 

FCE 

000 ] 

TEMP 

FDB 


替 


5 〇( - )〇 


END 


:X)0—r 心 000 


* 

^ dump number 


DSC 7 

し IMEIM 

□PT 

EQU 

9BDB 

MESSAG 

EQU 

D08E 

aur 

EBU 

B50B 

STRFAC 

EQU 

hCoD 

A160UT 

EQU 

5000 

START 

ORG 

EQU 

D9 

* 

LDX 

507 E 


STX 

5063 

WE X T 

LDX 

9BDB 


JSR 

D 807 


JSR 

01. 


1ST 

4C 5 り 5E 


BEQ 

10 


PSHS 

5071 


LDX 

9BDB 


JBR 

10 


PULS 

D L ) 


BIX 

B50B 


JSR 


n ] i ，し Ki 
01010 
01 - >20 


01 030 



01 040 



01 030 



01 060 



0107 



r-1 080 



01 090 

5000 


01 J. nO 



01110 



CM J 20 

て<〇〇〇 

?E 

0 ] 130 


BF 

0] i 40 

5005 

BE 

01150 

5008 

BD 

01 t 厶〇 

500 B 

BD 

01170 

50 OE 

AD 

01180 

io 

27 

01190 

5012 

34 

01 700 

5014 

BE 

01210 

5017 

BD 

0 ! ?20 

501A 

35 

01 230 

5010 

9F 

01240 

501E 

BD 

012 SO 



01 260 

502 1 

5F 

01270 

5022 

CE 

n j ?no 

5025 

& 

01290 

5027 

81 

01 300 

5029 

26 

01310 

502B 

Cl 

01 320 

5020 

25 

t：j 1 37.0 

502 F 

Cl 

01340 

5031 

24 

013S0 

5033 

81 

01 Z 60 

5035 

2fc 

01370 

5037 

Cl 

01 380 

5039 

VC" 

w 1 

013^0 

503 B 

Cl 

Cl14 い 0 

503 D 

26 

01410 

503F 

81 

01 

5041 

編， 

01430 

5043 

A 6 

01440 

5045 

BD 

01 450 

*5048 

20 

01 460 

50 4A 

G ら 

01470 

504C 

BD 

01 480 

504 F 

BD 

01490 

5052 


0 5 500 

5054 

BD 

01510 

5057 

5C 

01520 

5058 

C] 

01 530 

505 A 

26 

01540 

505C 

20 

01550 



0 J 560 

SOS ヒ 

bt. 

0 1570 

5061 

9F 

0 3 580 

5063 

39 

01590 



01 600 

5064 


01610 

5066 



〇 ] t20 5071 


01630 5072 

01640 5070 

01650 

01 660 507E 

01670 
01680 

1 nTAL FRRORB OC 


M,M0S,N0G ， P=255 
$D807 line input 

$9BDE* output i ram 〖 X+i> till 0 
车 D08E output 1 charae ter 

^B50B cunvert string into rAC1 

车 AC3D output Areg in HEX 

¢5000 


$D9 sa^e POINTER 

TEMP 

^PROMPT - 1 nut pul me^sacje 
ME5SA6 
し I ME ； IN 

1,X if null, then end program 

END 

X 

ttMES-1 output message 

MESSAG 

X 

¢09 set pointer 

STRFAC 

c1 ear offset 

#¢74 FAC 1 bas^ address 

$17 load var.type 

#2 

L01 

#2 if INT f disp 2.-3 

L04 

#4 

し 04 

#4 

L02 

梓 4 if SNG,disp O. .3,8 

L03 
#8 
L04 
#3 
END 
B,U 

A160UT 
し 05 

梓’— 

OUT 
□UT 

# * space 

OUT 

#9 

LOOP 
NEXT 

i ヒ n ド 

¢09 


$0D0A 

number = 

0 

* on memar y - 
0 


START 


if STR ,end 
1oad memory 
output 

not d i. sp fnemar v 


r サンブル 1 数値を入力すると，その数値の格納状態をボします. 

PAGE 001 ( , ) 


99 7 
O c A 


187 



TOTA し WARNINGS 00000——00000 

PROGRAM BEGIN ADDR^SOOO 
PROGRAM END ADDR=507F 
PROGRAM ENTRY ADDR=^ 5000 


0r j(H 


number 
on memory 
number 
on memory 
number 
on memory 
number 
on memory 
number 
on memory 
number 
□n memory 
number 
on memory 
number 


= —〜 __ 〇〇 
=-32767 
: __ BO 

=3 * 25 
=82 DO 00 
=-3,25 
=:82 DO 00 
=.625# 

-80 A0 00 
= 一 •625# 
=80 A0 00 
0000 1 
=70 A7 C5 


0i 



00 



00 

J JJ-I 


00 

00 

〇〇 

00 

00 

00 

AB 




Ready 




F A C と文字列との間の変換 

数値を表わした文字列と数値 （ FAC ) との間の変換を示します. 

◄文字列を数値へ ► 

機 能1 文字列を数値へ変換する. 

パラ^-夕 i $ D 3 — 文字列先頭アドレス ー 1 


$ D 9 


: 12 3…文字列…9 •一一関係のない文字 

I _ « 


アドレス|倍精度で数値を得たい時：$ B 5 0 S 


それ以外の時 ：$日5 0 B 


レジスタ 

CC , 

A , B , X , U 

復帰情報 

F A C 

1 ($ 7 4〜$ 7 C ) :得られた数値 


$ 17 

:数値の型 


$ D 9 

:関係のない文字のアドレス 


解 説]数値定数を表わす文字列を，適当な型の数値として FAC 1に格納 
します. 

$ B 5 0 6 のとき，数値の型は以下の場合を除いて，倍精度型となります. 

1) 8進（&，&0)，16進 <& H > のデータ（整数型となります） 

2) 末尾に！を伴なったデータ（単精度型となります） 

3) E を使った指数形式のデータ（単精度型となります） 

$ B 50 B のときには，適当な型が選ばれます(#，％，!によって指定があ 

れば，それに従います）. 
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◄ 数値を文字列へ ► 



数値を文字列へ変換する， 

F A C 1— 数値 
$17— 数値の型 

$ B 8 ~$BA — フォーマツト指定 （$ B 6 2 2のときのみ有効) 


フオーマツト付 


$ 8 0 2 2 


フオーマツトなし $巳6 2 0 

レジスタ1 CC , A , B , X , U 

復帰情報1 X レジスタ：文字列先頭アドレス 


X = $ 541 


— 1.234. 文字列 r 

. . ... j ■ 

し $〇〇 


解 _ 説 I 数値の型にしたがって FAC 1に格納されている数値を，数値を示 
す文字列に変換します.文字列は$ 5 4 ] からに格納され， X レジスタがその先 
頭をボ:します. 

$ B 6 2 2の場合には，フォーマット指定にしたがって文字列に変換します. 

碉フオ_マット指定畛 

$ B 8 ——小数点以下のケタ数（小数点を含む） 

$ B 9 -小数点より左(整数部分)のケタ数 

例)づ 

$ B 9 $ B 8 

し数値のケタ数の方が小さい場合には右詰めになる 

$ BA ビット7——フォ ー マット衍定の可否.このビットが0の場合フォ 

—マットは行わずフォーマットす定は無効となリます. 

ビット6 - カンマ指定.このビットが1のとき，数値の整数部が 

3ケタ毎にカンマ（， ） で区切られます. 

ビット5-アスタリスク衍定.このビットを1にした場合，数値 

桁数が満たない部分をアスタリスク （*) で埋めます. 
ビット4——エンマーク指定.このビットを1にすると，数値の的: 
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サンプル 


PAGE 001 t 

01000 
01010 


01020 


01030 


01040 


01050 


01060 


〇 1070 


01080 


01090 


01100 

5000 

01110 


01120 


01130 

5000 

01140 

5002 

01150 

5m 05 

01160 

5008 

01170 

500 B 

01180 

50 0E 

()i 190 

5010 

01200 

5012 

01210 

5014 

〇 ] 720 

5016 

0 3 230 

5019 

01240 

501C 

01250 

50IF 

01260 

5022 

01270 

5024 

01280 

5026 

01290 

5029 

01300 

502C 

0131 (j 

502 E 

01320 

5030 

nj y ， Z0 

5032 

0 1340 

5035 

01350 

5038 

01360 

503 A 

01370 

503 C 

01380 

503 F 

01390 

5042 

01 400 

5044 

01410 

5046 

01420 

5049 

01 430 

5040 

01440 

504E 

01450 

5050 

01460 

5053 

01470 

5056 

01480 

5058 


DB07 

9BDB 

DOBE 

0072 

B50B 

8622 

5000 

D9 

513 D 
"50AD 
9BDB 
0007 
01 
4B 
10 
BA 

50C2 

9BDB 

D072 

DOOE 

79 
20 

50 D 3 
9BDB 

C'vl 

80 
BA 

5103 
9BDB 
54 
B9 

5116 

^BDB 

4A 

BS 

5129 

9BDB 

10 

D9 

B50B 

B622 

IF 

9BDB 


^ print 

篑 

LINE IN 
MESSAG 
OUT 
IN 

BTRFfiC 
FACSTR 

START 

箐 


NEXT 


5050 


5046 


506 


508E 


QBE 


NDTFM 


us 1 ng 

QPT 
CQU 
EQU 
EQU 
EQU 
EQU 
EQU 
OR 6 
EQU 

LDX 

STX 

LDX 

JSR 

JSR 

1ST 

BE0 

PSHS 

C し R 

LDX 

JSR 

JSR 

JSR 

CMPA 

BNE 

LDX 

JSR 

ESP 

ORB 

STB 

LDX 

JSR 

BSR 

STB 

LDX 

JSR 

BSR 

STB 

LDX 

JSR 

PULS 

STX 

JSR 

JSR 

LEAX 

JBR 


N 06» P =255 
line input 

output from <X+1) till0 
output 1 character 
input 1 character 
convert string into FAC1 
convert FAC 1 int q string 


save POINTER 


u 11 then c?nd of program 


cI ear format f1ag 


n , N 0 S 
$D807 
辛 9BDB 
$D08E 
¢0072 
*B50Et 
$B622 
¢ 5000 
# 

$D9 
TEMP 

tfPRDMPT—1output message 
MESSAG ^ 

LI ME IN 
1,X 
END 
X 

$BA 

_ESC 卜 1 
MESSAG 
IN 
OUT 
*Ty 
NDTFM 

MESSAG 
BETBIN 
#¢80 
$BA 

# MES 2-1 
MESSAG 
GETNIJM 
$B9 

#MES3-1 
MESSAG 
GFTIMUM 
$B8 

#MES4-1 
MESSAG 
X 

¢09 set pointer 

STRFftC string=>FACl 
FACSTR FAC1->str 1 ng 
-1, X 

MESSAG output string 


no,not format 

format f1ag 


■Format ^bl e 


left of poi n 


riqth o-f point 


ith -f or mat) 


前に エン マーク （¥) を出力します. 

ビット3——プラスネ旨定.このビットを1にすると，数値が負のと 

きはマイナス符号（一），正のときはプラス符号 （+ ) 
を数値の前に出力します. 

ビット2——マイナス指定.このビットを1にすると，数値が負の 

ときに，マイナス符号（一 ） を数値の it 後に出力しま 

す. 

ビット0 —— 指数形式指定.このビットを1にすると，数値は指数 

形式で出力されます. 


EFFDDD 7 4 FEDDD 16 FDDA7EDD7EDD7ED5FDDOD 
9 E BBB 6 つ 』3 〇 8 B B B82 8B8C D 8 B 8 D B B 8 D B B 3 9 B E 3 B 
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BB01 

OUT 

林 ， O 


,S 
tt5 

GB03 


s k ip bit 1 


林 * FE 
,S 
# # 0 
OUT 

林 7 

GE：01 
B,PC 

get number in Breg 


A 

#10 


Breg—Breg* 10+4 - : eyin 


,S + 

B 

IN 

B 

o 

GN02 

#*9 

GN02 

OUT 

梓 ， 0 
GN01 


keyinput 


test . す 


echo back 


¢000 A»$ODOA 

number 


usi ng 


ワ 


< y / n > 


*0D0A 

# 

¥0D0A 

.f 

0 

$0D0A 
# lef t 


i ormat 




{0 or I)=1 # 


o 干 point 


*ODOA 

'right a 子 point 


¢000 A 


NUMBER 


o 


START 


NEXT 

TEHP 

$D9 

get binary number in Breg 


A8 

5005 

簧 

BRA 

5130 


END 

LDX 

D9 



STX 




RTS 



簧 




* subrout me 



菁 




GETBIN 

CLRB 

04 



PSHS 

0072 


GBOl 

JSR 

30 



CMPA 

04 

5071 


BED 

31 



CMPA 

F5 

5066 


BNE 

DO BE 


BB02 

JSR 

30 



SUBA 

RORA 

E4 



ROL 

INCB 

05 



CMPB 

Ofi 

5000 


BME 

INCB 

FE 



ANDCC 

E4 



ROL 

30 



し DA 

D08E 



JSR 

07 


BB03 

CMPB 

DA 

5066 


BNE 

B4 


* 

PULS 



普 subrautine 



普 




GETNUM 

CLRA 

CLRB 

02 


GN01 

PSHS 

OA 



LDA 




ML ) し 

EO 



ADDB 

04 



PSHS 

0072 



JSR 

04 



PULS 

30 



CMPA 

OB 

50AD 


BCS 

39 



CMPA 

07 

50AD 


PHI 

DOBE 



JSR 

30 



SUBA 

E3 

5090 


BRA 



GN02 

RTS 



* 


ODOA 


PROMPT 

FDB 

20 



FCC 

00 



FCB 

20 


MESO 

FCC 

00 



FCB 

ODOA 


MES1 

FDB 

20 



FCC 

ODOA 



FDB 

20 



FCC 

00 



FCB 

ODOA 


MES2 

FDB 

6C 



FCC 

00 



FCE( 

ODOA 


MES3 

FDB 

72 



rcc 

00 



FCB 

ODOA 


MES4 

FDB 

20 



FCC 

00 


箐 

FCB 

0000 


TEMP 

FDB 



普 


5000 



END 


01490 

505B 

01 500 


01510 

5050 

01520 

5060 

01 530 

5062 

01540 


01550 


01 560 


01570 

5063 

01580 

5064 

01590 

5066 

01 600 

5069 

01610 

506B 

01620 

5060 

01 630 

506F 

01640 

5071 

0 1 650 

5074 

01660 

5071 

01670 

5077 

016B0 

50 フ 9 

0 1690 

507A 

01700 

507C 

01710 

507E 

01720 

507 F 

01730 

5081 

01740 

5083 

01750 

5085 

01760 

5088 

01770 

508A 

01780 

508C 

01790 


01800 


0 1810 


01820 

508E 

01830 

508 F 

01840 

5090 

0 J 850 

5092 

01860 

509 乃 

01870 

5095 

01 880 

5097 

01 890 

5099 

01 900 

亏 09 C 

01910 

509E 

01920 

50A0 

01930 

50A2 

01940 

50 A 4 

01 950 

50A6 

01960 

50A9 

01970 

50AB 

01 980 

50AD 

01 990 


02000 

50 AE 

02010 

50B2 

02020 

50C2 

02030 

50C3 

02040 

5003 

02050 

5004 

02060 

5006 


50EF 

02080 

5 OF 1 

02090 

5103 

02100 

5104 

02110 

51 06 

02120 

5116 

02130 

5117 

02140 

5119 

02150 

5129 

02160 

512A 

02170 

512C 

02180 

5I3C 

02190 


02200 

5130 

02210 


02220 



2 


zwBA l 
B IttG # 


2 


EF9 
B93 


F 4 D 17 1 fcD 0 69cl6cc96D16 5 
53 Be2 8 2B8 4 65C25168Bc 2 3 
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TOTAL ERRORS 00000— 一 00000 
TOTAL WARNINGS 00000 一一 00000 


PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR^513E 
PRQBRAM ENTRY ADDR=5000 


exec を H 5000 


number 
using ? (y/n) 

-format 
(0 or 1) 


^12345,6789 

, 普八 
= 11111000 


left of point =10 
right of point -10 

NUMBER =**+¥12,345.678900000 


number 
using ? (y/n) 

i ormat 
¢0 or 1) 


=12345*6789 

-1000000 1 


le-Ft oi point - 10 
right o-f paint -10 

NUMBER - 1 23456789 . 000000000 D-04 


Ready 


number 


FAC とメモリ間の数値の移動 

FAC をメモリに格納する，メモリから F A C に移動する等を行います. 

螭 FAC をメモリに格納 ► 



アドレス 

レジスタ 


F AC 1の数値をメモリに格納します. 
FAC 1—数値 
$17—数値の型 
X レジスタ—格納するアドレス 
$ B 3 3 7 
CC , A , U 


解 説 1 F —BAS IC が変数への代入に用いて いるルーチンです. 格納形 
式は下図の様になります， 


• 整数型 （$17 = 2) の場合 


X — 

-整数値- 

— ___ 

上位 

下位 

単精度実数 （ $17 =4) の場合 

X ->| 

:指数部 

— _竹口如 


仮数部 

- 3バイト- 

一付 V 部 


FAC 内では，符号部として1バイト 
を有していますが，メモリ上では仮数 
部の最上位ビット （ FAC 上では，数 
値が0を示すとき以外は，1であった 
ビット）を符号ビットとしています， 
数値が0を示すときは，すべてのバ 
イトを0として示します. 


• 倍精度実数 （$17 = 8) の場合 


X 


指数部 








仮数部 

— 7バイト- 


符号部 
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◄ メモリ上から FA C に数値を移動 （1)► 


機 メモリ上に格納されている数値を FAC に移動します. 

I パラメータ X レジスタ—■数値の先頭アドレス 

$17—数値の型 
アドレス」$ B 3 01 
レジスタ ]C C , B，U 

(_ 復帰情報」 F A C 1: 数値 

W \ F - BASIC が変数からの数値取り出しに用いているルーチンで 
す.格納形式は ， 「F AC をメモリに格納」の場合と同様です. 

◄ メモリ上から F A C に数値を移動 （ 2 ) ► 

! "«^能 I メモリ上に格納されている実数値を FAC に移動します. 

パラ/ータ X レジスタ—数値（実数に限る）の先頭アドレス 

$15 — 倍精度フラグ（単精度=0，倍精度=0 以外） 

アドレス！ $ B 1 B A 
レジスタ丨 CC , A , B 

復帰情報 1 F AC 2 : 数値 

説1「メモリ上から fa c に数値を移幽 i ) j が，整数型でも ’__ r 能である 
のに対して，このルーチンは対象が実数値に限られます.メモリ上での格納形式 
は 「 F A C をメモリに格納」の場合と同様です. 
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整数を FAC に格納他 

◄ B レジスタの整数値を FAC に格納 ► 


M __ llJ B レジスタの値を符号なし整数とみなして FAC に格納します. 
パラメータ 1 B レジスタ—符号なし整数（〇〜2 5 5 ) 

7ドレス] $ 9 7 4 0 

レジスタ] CC，A 

復帰情報 1 F AC 1：整数値 

$17:2 (整数型） 

解 説 ] 具体的には， A レジスタをクリアして$ 9 7 4 D からのルーチンを 
実行します. 

◄ D レジスタの整数値を FA C に格納 ► 

M _座] D レジスタの値を符号付き整数とみなして F A C に格納します. 

パラメータ1 D レジスタ— 符号付き整数 （一327 68〜 32767) 

アドレス 1$ 9 7 4 D 
レジスタ] CC , A 

3帰情報 1 FAC 1：整数値 

$ I 7 ： 2 (整数型） 

解 説1 具体的には， D レジスタを$7 6，$7 7にストアし，2を$17 
にストアします. 


◄ D レジスタの整数値を10進で出力 ► 


_m _ mj d レジスタの値を符号なし整数とみなして1〇進を出力します. 

パラメータ 1 D レジスタ—符号なし整数（〇 〜 6 5 5 3 6 ) 

アドレス]$ B 615 

レジスタ | CC , A , B , X ， Y，U 

解 説1具体的には，順に，$974 D ， $ 8 D 19, $B 62 0， $ 9 B 

DB のルーチンを実行します . F —BAS IC が行番号の出力等に用いているル 
ー チンです. 
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F A C とスタック間での数値の移動 

◄ FAC 1をスタックにプッシュする ► 



アドレス 
レジスタ 

復帰情報 


F A C 1に格納されている数値をスタックに退避します. 
F A C 1 一 数値 
$17 — 数値の型 
$ 9 3 E 8 

CC , A , B , X , S 


◄整数値のとき ► 


S 



上位 

下位 






\ 

$ 0000 
アドレス 

$FFFF 


◄実数値のとき ► 


S 


す 


m 


指数部 


仮数部 


符マ部 



$ 04 or $ 08 




< 






m 

Ha • 營 •a-dh 

m 

} 又 


篇 



FAC 1 をスタック上に退避します.この際スタックポインタ （ S ) 
が破壊されますが，このルーチンからの戻りは正常に行われます. 



◄スタックから FAC 2へポップする ► 

n * 蘇1 FAC 2にスタックから数値を復帰します. 

バラメータ I スタックの状態は，プッシュした後と同様でなければなりません. 

ァドレ; T | $9411 

レジスタ| C C , A , B , X， S 

F AC 2 :数値 
S 5 D ：数値の型 


^ 説 I 前のルーチンで退避した数値を FAC 2に復帰します.この際スタ 
ックポインタ （ S ) が破壊されますが，このルーチンからの戻りは正常に行われ 
ます.これらのルーチンは，システムスタックを使用するので * サブルーチンか 

らの戻り等には注意して下さい. JSR$93E8 を 「PSHS FAC 1 j, J 
SR$9411 を 「PULS FAC2 」 と考えると，容易なものとなります. 
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FAC 同志での数値の移動 

，FAC 1 峠 FAC 

機 W ] F A C 1に格納されている数値を FA C 2に代入します. 

パラ y — 夕] FAC 1— 数値 

$17—数値の型 
アドレス丨 $ B 3 8 0 
[レジスタ] CC , A , X 
復帰情報 」 FAC 2 : F AC 1と同じ数値 

解 — 說] FAC 1の数値を FAC 2に代入します. FAC 2 の型は ， FAC 
1のそれと同様になりますが ， FAC 2の型を示すアドレス （$5 D ) に型はセ 
ットされません. 

◄ FAC 2 哧 FAC 1 ► 

fm W ] FAC 2に格納されている数値を FAC 2に代入します. 
パラメータ] FAC 2 —数値 

$17—数値の型 
アドレス] $ B 3 5 F 
レジスタ I CC , A , X 
復帰情報1 F AC 1 : F AC 2と同じ数値 

解 説 ] FAC 2の数値を FAC 1に代入します. FAC 2 の型を示すアド 
レス （$ 5 D ) は参照されず， FAC 1のそれ （$17) が参照されます. 

◄ FAClOFAC 2_ 

m W \ F AC 1の数値と F A C 2 の数値を入れ換えます. 

厂 パラメータ] F AC 1—数値1 

FAC 2—数値2 

アドレス I 数値が倍精度実数のとき $ 9 3 6 4 

数値が単精度実数のとき $ 9 3 7 4 
数値が整数のとき $ 9 3 8 4 

レジスタ] CC , A , B , X , 
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復帰情報 j F A C 1:数値2 

F A C 2 ： 数値 1 


解 説 FAC 1 の数値と FAC 2 の数値を交換します，ただし， FAC 1 
の数値の型と， FAC 2 のそれは，一致していなければなりません. 
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FAC の数値の判別 

◄ FA C 1の数値の型を判別 ► 


[M _ A|J F AC 1に格納されている数値の型を判別します. 

上ラメータ ] $17 —数値の型 
アドレス丨 $BCB 3 
[レジスタ] CC , A 

|~復帰情福1 型の情報は CC レジスタの各フラグに現われます. 

倍精度実数 （ 8 ) のときキャリー （C : bit 〇 ) リセット 
単精度実数 （4) のときオーバーフロー （V : bit 1 ) セッ 
整数 （2) のときネガティブ （N : bit 3 ) セット 

文字列 （ 3 ) のときゼロ （Z : bit 2 ) セット 

^_ i »] $17の値を参照して各フラグをセットします. 

◄ FAC 1 の符号を判別 ► 

M _ U FAC 1に格納されている数値の符号を判別します. 

パラ/一夕1 F A C 1—数値 



$17—数値の型 


アドレス 1 

$ B 3 C 8 


レジスタ 

CC , A , B , X 


復帰情報 

| B レジスタ：数値が正のとき 

$01 


数値が負のとき 

$ F F 


数値が0のとき 

$00 


解_説 FAC 1 の符号により， B レジスタに個[をセットします. 


サンプル 

PAGE 001 ( 


01000 





省 




01010 





output type 

sign 


01020 









01030 






□PT 

M,NDS t 

N□6 f P^255 

01040 



BCB3 


TTEST 

EQU 

$BCB3 

type teyt 

01050 



B3C8 


STEST 

EQU 

$B3C 巳 

Biqn test 

01060 



D08E 


OUT 

EDU 

$D 08 E 

output 1 character 

01070 

5000 





ORG 

S 5000 


01 0B0 



5000 


START 

EQU 

箐 


01090 









01100 

5000 

97 

17 



STA 

爆 17 

set type flag 

01110 

5002 

BD 

BCE3 



JSR 

ィ TEST 

type test 

01120 

5005 

24 

0A 

5011 


BCC 

DB し 


01130 

5007 

2? 

0E 

5017 


BVS 

SNG 



200 








01140 

3009 

27 

2D 


5038 


BEG 

STR 

01150 

50 0E 

30 

8D 

00 フ 3 


し EAX 

MESINT f PCR 

01160 

50 OF 

20 

OA 


50 IB 


BRA 

T01 

01170 

5011 

30 

BD 

0050 

DBL 

し EAX 

MESDB し , PCR 

i 180 

5015 

20 

04 


50IB 


BRA 

T01 

0 1190 

301 フ 

30 

8D 

002 D 

SNG 

LEAX 

MESSNB,PCR 

01700 

50IB 

BD 

21 


503 E 

TO! 

BSR 

MESSAG 

01210 






a ： 



<">122^ 

501D 

BD 

B3C8 



JSR 

STEST sign test 

01230 

5020 

5D 





TSTB 


01240 

502 1 

27 

08 


502B 


BEQ 

ZERO 

01250 

5023 

2B 

DC 


5031 


BMI 

MI NUS 

01260 

5025 

30 

BD 

0077 


LEAX 

MESP し S,PCR 

01270 

5029 

20 

OA 


5035 


BRA 

SO1 

01280 

502B 

30 

0D 

007 C 

ZERO 

LEAX 

MESZER,PCR 

01290 

502F 

20 

04 


5035 


BRA 

SOI 

01 300 

5031 

30 

BD 

0070 

MINUS 

LEAX 

MESMIN,PCR 

01310 

5035 

8D 

07 


503 E 

SOI 

BSR 

MESSAG 

01320 

503 フ 

39 





RTS 


01330 






菁 



01340 

503 扫 

30 

SD 

005 A 

STR 

LEAX 

MESSTR,PCR 

01.350 

503 C 

20 

F7 


5035 


BRA 

SOI 

01360 









01370 






* subroutino:output 1 line 

01380 






箐 



01390 

503E 

A6 

80 



MESSAG 

し DA 


01 400 

5040 

27 

05 


5047 


BEQ 

M01 

01410 

5042 

BD 

DOBE 



JSR 

OUT 

01420 

5045 

20 

F7 


503E 


BRA 

MESSAG 

01430 

5047 

39 




noi 

RTS 


01 440 






普 



01450 

504 B 


ODOA 


MESSNG 

FDB 

$ODOfi 

01460 

504A 


73 




FCC 

'single precisi on number 

01470 

5064 


on 




FCB 

0 

01480 

5065 


ODOA 


MESDBL 

FDB 

$ODOA 

01490 

5067 


64 




FCC 

F double predision number 

01500 

5081 


00 




FCB 

0 

01510 

5082 


ODOA 


MESINT 

FDB 

$ODOA 

01520 

5084 


69 




FCC 

'integer number of 

0 1530 

5095 


00 




FCB 

0 

01540 

5096 


ODOA 


MESSTR 

FDB 

$0D0A 

01550 

509 B 


フ 3 




FCC 

'str i ng. # 

01560 

309 F 


00 




FCB 

0 

01570 






餐 



01580 

50 AO 


20 



nESPLS 

FCC 

* positiV 0 - 

01590 

50AA 


〇〇 




FCB 

0 

01600 

50AB 


20 



MESZER 

FCC 

’ zero.' 

01610 

5 OBI 


00 




FCB 

0 

01620 

50 B 2 


20 



MESMIN 

FCC 

f negative* 

01630 

50 BC 


〇〇 




FCB 

0 

01 640 






长 



01 650 



5000 



END 

START 


TOTAL ERRORS 00000——00000 
TOTAL WARNINGS 00000--00000 

PROGRAM BEGIN ADDR- 5000 
PROGRAM END ADDR=50BC 
PROGRAM ENTRY ADDR^ 5000 

daf usr - ~ 5000 
Ready 

?usr ( 1 0/： ) ;?usr (0! ) : ?usr (™10#> 
integer number of pasitive,10 
single pre?ci ,sii on number z ero. 0 

double precisi on number of negative,-10 



?usr ( 1 ■つ 

string.* 

Ready 


or 

of * 
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FA C の型を変換 

◄任意の型に変換 ► 



アドレス 


レジスタ 

復帰情報 


FAC 1の数値を指定した型の数値へと変換します. 
FAC 1—数値 
$17 —数値の型 （旧） 

A レジスタ—数値の型（新） 

$BCC 1 

CC , A , 巳， X , U 
FAC 1：変換された数値 
$17：数値の型（新） 


解説； A レジスタで指定した喂へ， FAC 1の数値を変換します. 


◄型の相互変換 ► 

機 能 | F AC 1の型を変換します. 

パラ/—夕 ] F A C 1—数値 

$17—数値の型（旧）（下表の**のルーチンの時だけ必要) 

アドレス 



整数型 

単精度実数型 

倍精度実数型 

m 数型 


$ BCFF * 

$ BCD 3 

単精度実数型 



$ BCD 5 

倍精度実数型 


$BCEE 


氺氺 

$ BC 74 

$ BCE 0 

$BCCD 


* :符号付きの場合、符号なしの場合は$ BD 19 

: $17にセットされている型を参照して処理を行う。これ以外の所では、 
$1 7 に値をセツトする必要はあリません. 


レジスタ| CC ， A , 巳， X， U 


復帰情報 」 F AC 1:変換された数値 

$17：数値の型（新） 


解 説 各ルーチンに応じて， FAC 1の型を変換します. 
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paaf on 1 ( 


01 000 * 

01010 * variable type convort 


01020 

01030 





'M- 

OPT 

01040 



0807 


LINE IN 

EQU 

01 050 



DO BE 


OUT 

EQU 

0] 060 



0072 


IN 

EQU 

01070 



B 50 B 


STRFAC 

EQU 

01080 



B622 


FACSTR 

EQU 

01090 



BCCl 


CONV 

EQU 

01 100 

5000 





ORG 

01 J 10 



5000 


BTAF : <T 

EDIJ 

01120 

01130 

5000 

9E 

D9 


关 

LDX 

01140 

5002 

BF 

50 [3( j 



SIX 

01 150 

5(X)5 

BE 

504 1: 


NEXT 

LDX 

01 160 

5008 

8D 

3A 

5044 


BSR 

0 J 1 70 

50 0A 

BD 

DB07 



JSR 

01180 

5000 

6D 

01 



TST 

011 ヮ〇 

500 F 

27 

2D 

503 E 


BEG! 

01200 

501 1 

9F 

D9 



STX 

01210 

5013 

BD 

B50B 



JSR 

01 230 

5016 

8E 

505 F 



LDX 

0 1230 

5019 

8D 

29 

5044 


BSR 

01240 

50IB 

BD 

0072 


NO1 

JSR 

01250 

501E 

01 




CMPA 

01 260 

"5020 

27 

08 

502 A 


BEQ 

01270 

5022 

81 

34 



CMPA 

01 280 

5024 

27 

04 

502A 


BEQ 

01 290 

5026 

ei 

了 

jL 



CMPA 

01 300 

5028 

26 

FI 

501 B 


BNE 

01310 

502 A 

BD 

DOSE 


N02 

JSR 

01 320 

502 D 

80 

30 



SUBA 

U 13o- U 

502F 

BD 

BCCl 



JSR 

01340 

S032 

BE 

506 r 



LDX 

0 1350 

5035 

BD 

OD 

5044 


BSR 

01 360 

5037 

BD 

B622 



JSR 

(>1370 

503 A 

8D 

08 

5044 


BSR 

01380 
01 390 

503 C 

20 

C7 

5005 

* 

BRA 

01 400 

503 E 

BE 

5080 


END 

LDX 

01410 

504 1 

9F 

D9 



STX 

0 1420 
01430 

5043 

39 




RTS 


M ， N0S ? WDG t P— ^ 

$D807 1]ne input 

i-D08E output 1 character 

$0072 input 1 character 

樂 B50P convert string into FAC1 

车 B622 convert FAC1 into string 

$ECC1 type convert 

i 5000 


$D9 save POINTER 

TEMP 

ttPROriF'T output message 
MESSAG 

し INEIN get number 

1 i X i -f null then end of program 

END 

¢09 

STRFAC string->FAC1 

林 MES 

MESSAG 

IN qet type of var. 

林 ， 巳 

N02 

#*4 

N02 

梓 ， 2 

N01 

OUT pc ha back 

n r o 

C0NV type convert 

林 ANSWER 

MESSAG 

FACSTR output FAC1 

MESSAG 

NEXT 

TEMP end 

¢09 


01440 普 subroutine:output 1line 

01450 # 


01 460 

5044 


80 

MESSAG 

し DA 

,X + 


01 470 

5046 

严 1-7 

05 

5040 

BED 

MOi 


01480 

5048 

BO 

D08E 


JSR 

OUT 


01-190 

5048 

20 

F7 

5044 

BRA 

MESSAG 


01500 

50 4D 

^*9 


not 

RTS 



01310 




冬 




01 520 

504 E 


ODD A 

PROMPT 

FDB 

¢000 A 


0 i 530 

5050 


20 


FCC 

崃 

number 

01540 

TjOSE 


00 


FCB 

0 


01550 

505 F 


74 

MES 

FCC 

' type 

(2/4/8) 

Ol 560 

506 E 


00 


FCB 

tj 


0 1570 

50tF 


ODOA 

ANSWER 

FDB 

fODOA 


01580 

5071 


20 


FCC 

■w 

NUMBER 

01590 

507 F 


00 


FCB 

0 


Ot 600 




箐 




ri 16 1 0 

5080 


0000 

TEMP 

FDB 

0 



0l^ 

01 630 5000 END START 

T (1T A し E R R n R S 〇〇〇〇〇——〇〇〇〇〇 
TOTAL WARNINGS 〇〇 ( ： ) 〇〇 —00000 


PRQGFflI-1 BEGIN ADDR=:5000 
PROGRAM END ADDR: で 08 J 
PROGRAM ENTRY ADOR-5000 
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^::oc: 5000 


number : 123*45fc 
ty! 阳 {2/4/8) ? 2 

NUMBER : 123 

number : 123.456 
[ypr (2/4/B) ? B 

m IMBER : 123 - 45^9936523438 
number si, 234567890 1 23456789 d - 10 
type (2/4/B) ? 4 

NL*MBF：R : U 23457 E-10 
number : 1 23456 
type (2/4/8) ? 2 

Over f 1 dim 



◄ FAC 1 と FAC 2 の型をあわせる ► 



アドレス 
レジスタ 

復帰情報 


2項演算に先だって ， F AC 1と F AC 2の型を一致させます. 
F AC 1—数値 （ 1 ) $17 —数値(丨 ） の型$15 — 0 
F AC 2 —数値 （ 2 ) $ 5 D — 数値 （ 2 ) の型 

$ 9 3 4 0 

CC , A , B , X， U 
$17—新しい数値の型 

$15 —倍精度フラグ （ 0 :単精度，0以外：倍精度） 


解 説」 FAC 1と FAC 2の型を比較して，低い精度のものを高い精度の 
ものに変換します. 

FAC 1も FAC 2も整数型であった場合に限り， FAC 1と FAC 2が交換 
されます.これは後述する演算ル ー チンのための処置です. 
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2 項演算 


◄四則演算 ► 

FAC 1と FAC 2の間で四則演算を行い，結果を FAC 1に格納します. 


〔パターン1〕 



アドレス 


FAC 1—演算数 $17—演算数の型 （ 2，4，8 ) 
FAC 2 —被演算数 $ 5 D — 被演算数の型（2，4， 8) 
加算……$ B D 4 D 、 

減算 . $ B D 3 F I このアドレスを呼び出す前に 

乗算 . $ BD 7 3 ( J S R $ 9 3 4 D 


除算 . $ 9 3 C D ノ を実行すること 


レジスタ I CC ， A , B , X， U 

復帰情報 1 F AC 1 :結果 

$17：結果の型 


七 説] FAC 1 <^FAC 2© FAC 1を実行します.数値の型は限定さ 
れません. 


〔パターン2〕 

パラメータ| F AC 1—演算数（実数） 

F AC 2 —被演算数（実数） 

$1 5— 倍精度フラグ （0 :単精度，0以外：.倍精度) 
A レジスタ—被演算数の指数部 （$8 2) 

B レジスタ—演算数の指数部 （$ 7 4) 
$8 B <- FAC 1 と FAC 2の符号部の E OR 

アドレス|必ず LDB $74 

JSR $ X X X X の順で実行すること. 

加算 $ A F 1 D 

減算 . $ A F 14 

乗算……$ B 0 F t 
除算……$ B 2 3 6 
レジスタ 丨 CC , A , B ， X， U 
復帰情報 I F AC 1：結果 
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_ U FAC 1 ^=FAC 2© FAC 1 を実行します，数値は同じ精度の 

実数に限られます. 


〔パターン3〕 

パラメ-^] FAC 1— 演算数（実数） 

X レジスタ—被演算数（実数）の先頭アドレス 
$15 —倍精度フラグ （ 0 :単精度，0以外：倍精度） 

アドレス 1 加算-$ A F 1 A 

減算 ——$ A F 11 

乗算- $ B 0 E E 

除算——$ 8 2 3 4 

レジスタ ]C C ， A ， B ， X , U 

復帰情報 1 F AC 1:結果 

i _ W \ FAC lb ( X ) © FAC 1 を実行します.数値は，同じ精度の 

実数に限られます.被演笕数（実数〉は， 「 FAC をメモリに格納」と同じ形でメ 
モリ上にある データです . 


〔パターン4〕 

パラメータ | F A C 1—被演算数（整数）$17 — 2 (整数型) 

FAC 2 —演算数（整数） 

アドレス] 加算——$ B D 5 2 

減算 ——$ BD 4 4 


レジスタ I 

3帰情報」 


乗算‘ 
除算 ■ 


CC , A , 
F AC 1： 


— $ BD 7 8 
— $ 9 3 D 3 
B , X , U 

結果 $17：結果の型 


_ EJ FAC 1 <^FAC 1 ©FAC 2 を実行します.この場合だけ，演 

算数と被演算数の順序が逆ですので注意して 下さい. 結果が整数型で収まらない 
場合と除.の場介は，結果が単精度実数で返されます. 


サンプル | スタック計？?機をシミュレートするプログラムです.数値または， 
演算子 （ + ,— ，*，/)をカンマまたは CR でくぎって入力して下さい。’=’はス 
タックトップの値を表示します. 
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PAGE ， 
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4 

リ 1( バ 


0 i 0 




# S t B.C i 

=:cal 

r* r 11 a 1 " o r~ 

-h . Ah mm i. '^uw 9 




01 020 




簧 






010:0 





OPT 

M,N0S,N0G,P=255 



0 1()40 



0807 

LINE IN 

EQU 

$D807 

line input 



(j ; 050 



9BDB 

MEBSAG 

EBU 

$9BDB 

outc) 1 け irnr (X + l) 

till 0 

01 060 




CRLP 

EQU 

¢9850 

output CR S< LF 



n\cr/o 

|h. 



934 D 

FACSET 

EQU 

¢9340 

type sot <FAC1) 


01 000 



93CD 

DIV 

EQU 

^93CD 

FAC2/FAC1=>FftCi 



01 090 



93E8 

FACPSH 

EDU 

$93£8 

push FAC 1 



0 U 00 



9411 

FACPU し 

EQU 

¢941 1 

pul1 FAC2 



01110 



B ：： 5F 

FAC2* 1 

EQU 

$B35F 

FAC2=>FAC1 



i:_ i i 20 



1 ：: 506 

STRFAC 

EQU 

$ B 5 0 6 

conver t st rin a into 

FAC1 

O} i 30 



B 620 

FACSTR 

EQU 

$^620 

c: け nvert FAC 1 into 

st r i ng 

0 j 1 4 (J 



BD3F 

SUB 

EQU 

$ED3F 

FAC2-FAC1= ： >FAC1 



01150 



BD4D 

APD 

EQU 

$BD4D 

FAC2+FAf ： l^ >FAr：l 



01 1 60 



■. An f bu 

MUL 

EQU 

$E ： D73 

FAC2*FAC1=>FAC1 



01170 

尸 ; 000 




GRG 

$5000 




01i go 



5000 

START 

l£QU 

普 




0 1-140 




* 






0 J 200 

5000 

9E 

D9 


し DX 

车 D9 

save PDIMTER 



012 1 0 

5002 

BF 

5117 


BTX 

TEMP 




01 220 

5005 

BD 

9B50 


JSR 

CRL.F 




01 230 

5008 

8 F 

50E8 

NEXT 

LDX 

林 PR0MF.T*—1output m0ss^,ge 



0 1240 

50 OP 

BD 

9BDP 


JSR 

MESBAG 




01 250 

50 OE 

BD 

0807 


JSR 

LINEIN 




01260 

5011 

6 D 

01 


TST 

1,X 

if null then end 

D + 

progr 


01270 

5013 

1027 

009 1 

50 GB 


LBEQ 

END 


01280 

5017 

A6 

01 


GET 

LDA 

1 

qet nr*Kt ch^r^c ter 

01290 

5019 

27 

EC- 

5008 


BED 

NEXT 


01 300 

50IB 

B1 

20 



CMP ft 


• 味 * o 

01310 

501 D 

26 

OC 

50 2B 


BNE 

601 


01320 

501F 

6D 

02 



TST 

V 

^ A 

yes 

01 330 

5021 

27 

08 

502 B 


BEQ 

G01 


()1 340 

5023 

A6 

02 



LDA 

2, X 


0 1350 

c :; .025 

81 

2C 



CMP A 

， 


01 360 

5027 

26 

61 

508 A 


EME 

BO 5 

i-f monadic operator 

0 1370 

5029 


2D 



LDA 

# し 


01380 

502 P 

81 

2C 


GDI 

CMPA 


delimiter ? 

01390 

502 D 

26 

04 

5033 


BNE 

G02 


01 400 

502F 

30 

01 



LEflX 

1,X 

yes,skip 丫 

0141 n 

5031 

20 

E4 

5017 


BRA 

GET 


01420 

5033 

CE 

510 B 


G02 

LDU 

辑 TABLE 

operator check 

01 430 

5036 

A1 

CO 


BO 3 

CMF.A 

7 U + 



01440 5033 26 30 506A BIME G04 

01450 503 A 30 01 LEAX 1 5 X found ! skip 1 chr 


01 460 

503 C 

9F 

D9 


SIX 

¢09 

save pointer 

01470 

503 E 

AE 

C4 


LDX 

/U 


0 j 4 Q0 

5040 

BF 

511A 


SIX 

ADDR 

set address of operator 

01490 

5043 

B6 

5119 


LDA 

STACK 

stacl test 

01 500 

5046 

81 

02 


CMPA 

#2 


01510 

5048 

1025 

0087 

5003 

し Ei し 0 

ERR 


01 520 

504 C 

BD 

9411 


JSR 

FACPUL 

stac k= >FAC2 

r> i 

50 4F 

96 

5D 


LDA 

¢50 

FAC2=>FAC1 

oi?4n 

■P .#9 輪 ■ ■ _ 

5051 

97 

17 


STA 

$17 


01 550 

5053 

BD 

B35F 


JSR 

FAC2.1 


01560 

5056 

BD 

9411 


JSR 

FACPU し 

stac:k=>FAC2 

01570 

5059 

BD 

9341) 


JSR 

FACSET 

t ype set 

01580 

505 匚 

AD 

9F 511A 

JSR 

[ADDR] 

e ; く ecute operator 

01590 

5060 

BD 

93EB 


JSR 

FACP3H 

FAC1 (an:。=>stack 

_ 1600 

5063 

7A 

5119 


DEC 

STACK 

st ack:^1 

01610 

5066 

9E 

D9 


し DX 

$D9 

painter come back 

01620 

506 B 

20 

AD 

5017 

BRA 

GET 


01630 

506 A 

_ '■< « ii 

42 

604 

LEAU 

2 ,U 


0 1 640 

50tC 

11B3 

5117 


CMPU 

#.TABLE 


01650 

5070 

26 

C4 

5036 

M, 

BNE 

G03 


L J. O Cj 

01670 

5072 

81 

3D 


CMPA 

轉 ’= 

disp1 ay ' - " ? 

016 9 f ン 

5074 

27 

26 

509 C 

BEQ 

DSP 


0 3 690 

5076 

81 

26 


CMPA 

# 

r tumber t e ；-1 

01 700 

5078 

27 

10 

50BH 

BEQ 

G05 


01710 

507 A 

B1 

2E 


CMPA 
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01 720 

507C 

27 

OC 

508 A 


BEQ 

G05 


01730 

507 E 

81 

2D 



CMPA 



01740 

5080 

if 

08 

500 A 


BEG! 

□05 


01750 

5082 

81 

30 



CMPA 

社 ， 0 


01760 

5084 

つ Cr 

ム J 

4D 

50D3 


BLO 

ERP 

if not number then error 

01770 

5086 

81 

39 



CMPA 

林 ， ？ 


01780 

5088 

22 

49 

5003 


BHI 

ERR 


01790 

508 A 

9F 

D9 


G05 

STX 

$D9 

number 

01 800 

50BC 

BD 

B506 



JSR 

STRFAC 

string~>FAC1 

01B10 

50 OF 

BD 

93E0 



JSR 

FftCPSH 

FAC1 - >stack 

01820 

5092 

7C 

SI19 



INC 

STACK 

stack; + 1 

01 BZO 

5075 

9E 

D9 



LDX 

$D9 


01840 

5097 

30 

IF 



LEAX 

一 1 i X 


01050 

5099 

16 

FF7B 

5017 


し BRA 

GET 


011360 





菁 




01B70 

509 C 

9F 

D9 


DSP 

STX 

$D7 


0 10BO 

509 E 

7D 

5119 



TST 

STACK 

t 09 t stack 

01890 

50 A1 

27 

30 

5003 


BEQ 

ERR 


01 900 

50A3 

BE 

50 ED 



LDX 

林 MES - 1 

output message 

0191 0 

50A6 

BD 

9BDP 



JSR 

NESSAG 


0 1 920 

50A9 

BD 

9411 



JSR 

FACPUL 

star: k - >FAC2 

01 930 

50 AC 

96 

5D 



LDA 

$5D 

FAC2==>FAC1 

0i940 

50AF 

97 

17 



STA 

¢17 


01950 

50 BO 

BD 

B35F 



JSR 

FAC2.1 


0 i 960 

5 〇 P ス 

BD 

B620 



JSR 

FACSTR 

FACi=>string 

0 1970 

5086 

30 

IF 



LEAX 

- 1,X 

output strinq 

019 BO 

50l?B 

BD 

9BDB 



JSR 

MESSAG 


01990 

50 BB 

BD 

9B50 



JSR 

CRLF 


n 2000 

50 BE 

7 A 

51:9 



DEC 

STACK 

stac^: s — 1 

02010 

50C1 

9E 

D9 



LDX 

$D9 


02020 

5003 

30 

01 



LEAX 

1 ,x 


02030 

50C5 

1.6 

FF4F 

5017 


LBRA 

GET 


02040 





* 




02050 

50C8 

7D 

5119 


END 

TST 

STACK 

end of exec 

02060 

50CB 

26 

06 

5003 


BNE 

ERR 

stack check 

02070 

50CD 

BE 

5117 


END01 

LDX 

TEMP 

POINTER come back 

02080 

5000 

9F 

D9 



STX 

¢09 


02090 

50D2 

39 




RTS 



02100 





昝 




02110 

5003 

8E 

SOFA 


ERR 

LDX 

#ERRtiES-l error 

02120 

5006 

BD 

9BDB 



JSR 

MESSAG 

output messag 

02130 

5009 

7D 

5119 



TST 

STACK 

stack test 

02140 

50DC 

27 

08 

50E6 


BEQ 

ERR02 


02150 

50DE 

BD 

9411 


ERR01 

JSR 

FACPU し 

stack recover 

02160 

50E 1 

7A 

511? 



DEC 

STACK 


02170 

50E4 

26 

F B 

50DE 


BNE 

ERRO1 


02180 

50E6 

16 

FF1F 

5008 

ERR02 

LBRA 

NEXT 

get nex t 1 i ne 

02190 





箐 




02200 

50E9 


3F 


PROMPT 

FCC 

• 7 つ 7 • 


02210 

50ED 


00 



FCB 

0 


02220 

50EE ： 


20 


MES 

FCC 

# 

Answer; 

02230 

50FA 


00 



FCB 

0 


02240 

50FB 


2ft 


ERRMES 

FCC 

* ERROR ^ ' 

02250 

51OB 


ODOfi 



FDB 

$ODOA 


02260 

5tOA 


00 



rce 

0 


02265 





* 




02270 

510B 


2B 


TABLE 

FCC 

# + # 

operator table 

02280 

510C 


BD4D 



FDB 

ADD 


02290 

51OE 


2D 



FCC 



02300 

51OF 


BD3F 



FDB 

SUB 


02310 

5111 


2A 



FCC 

| 箐 * 


02320 

5112 


BD73 



TDB 

MU し 


02330 

5114 


2F 



FCC 

v , 


02340 

5115 


93CD 



FDB 

DIV 


02350 



53 17 


.TABLE 

EDU 

景 


02360 





箐 




02370 

5117 


0000 


TEMP 

FDB 

o 

_• 


02380 

51 19 


00 


STACK 

FCB 

0 


02390 

511A 


0000 


ADDR 

FDB 

0 


02400 





簧 




02410 



5000 



END 

START 


TOTAL 

ERRORS 00000——00000 






TOTAL WARNINGS 0000000000 
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PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=51IB 
PROGRAM ENTRY ADDR=5000 



Ready 

HARDC 
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◄整数除算及び剰余 ► 


01 j 00 


01 I L 0 


01120 

5(X)0 

01130 

5003 

01140 

5005 

01150 

van ■■ 

SUU ^ 

01 160 

5000 

01 170 

50 OB 

01180 

50 OE 

01 190 

5010 

0 ] 200 

5012 

01210 

5014 

01 220 

5016 

01230 

^OIB 

01 240 


01 250 

501A 

Ol?AO 

50 1 D 

012 フ〇 

5020 

01280 

CT 厂、尸 m 

jU ム 

01290 

5025 

01 300 


01310 

5027 

0 1320 

5029 

01350 

502 E 

01340 

502 D 

01350 

502 F 

01360 

5031 

013 フ〇 

5033 

013B0 


01390 

5039 

01 400 

^>03 p 

01410 

503 r: 

01 420 

r 5 040 


j( 

^ ぐ Uv(¥) %k mod 
斗 





OPT 

M t NGG,N0B,P=255 

0072 


IN 

EOU 

¢0072 


D08E 


□UT 

EQU 

$DOBE 


BEOC 


INTO I V 

EQU 

车 BEOC 


BE33 


HDD 

EQU 

fBE33 


B622 


FACSTR 

EOU 

¢8622 





DRG 

¢5000 


5000 


START 

* 

EDU 

¥r 


5092 


LDX 

#ME51 


3D 

5042 


BSR 

MESSAG 


45 

504 匚 


BBR 

PETNUM 


76 



STD 

$76 

set FAC1 

06 



F'SHS 

D 


509 D 



LDX 

ttMEB2 


32 

5042 


BSR 

MESSAB 


3A 

504 C 


BBR 

GETMUM 


EM 



STD 

¢84 

set FAC2 

06 



PSHS 

D 


02 



LDA 

轉 2 

set INT 

17 



STA 

$17 


BEOC 


JSR 

INTDIV 

FAC1<=FAC1 ¥ FAC2 

5008 



LDX 

#MES3 


20 

5042 


BSR 

MESSAB 





JSR 

FACBTR 

output FAC1 

IB 

5042 


BSR 

MESSA6 


02 



LDA 

林 2 

set INT 

17 



STft 

¢17 


06 



PULS 

D 


84 



STD 


set FAC2 

06 



PULS 

D 


76 



STD 

¢76 

set FAC1 

BE 33 



JSFi 

MOD 

FACK^FACl MOD FAC2 

50 B 3 



LDX 

社 MES4 


07 

5042 


BSR 

MESSAG 


B 622 



JSR 

FACSTR 

output FAC1 

02 

5042 


BSR 

MEBSAR 


BF£ 

50 no 


BRA 

START 



整数除算及び剰余を求めます 
FAC 1—被演算数（整数） 
FAC 2 —演算数（整数） 


9 


整数除算- 
剰余， 


$ B E 0 C 

$ B E 3 3 (ただし A レジスタに$ 7 B の値をセツ 


してから実行すること） 


CC ， A f B , X 
F AC 1：結果（整数) 


FAC 1卜 FAC 1 ©)FAC 2を実行します.数値は整数に限ら 



アドレス 



r 復帰情報 

L _ _ _ _ 


解 説 


れます. 


サンプル 


PAGF 001 ( 

01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
〇 1 0B0 
n 1090 


EDDD4EDDD 46 7 DEDDD 6 7 5 D 5 D D E D D D c 
8 8RD 3 88 s D3B9B 8 8 B 889 3 D 3 D B8B B8 2 
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01430 





* 



01440 





* output 1 1 : 

l ne 

01450 





箐 



01460 

5042 

A6 

80 


MESSAG 

LDA 


01470 

5044 

27 

05 

504 B 


BEQ 

MEO1 

014 SO 

5046 

ED 

D08E 



JSR 

OUT 

0 3 490 

504 9 

20 

F7 

5042 


BRA 

MESSAG 

0 l 500 

504 B 

39 



ME01 

RTS 


01510 








01520 





* get 

n umber - 

in Dreg 

01530 








01540 

504C 

CC 

0000 


GETNUri 

LDD 

#0 

01550 

504F 

7F 

50B7 



CLR 

FLAG 

01 


5գ 

U6 




u 

01570 

3054 

4F 




CLRA 


01580 

5055 

IF 

89 


GN01 

TFR 

A,B 

CM 590 

5057 

4F 




CLRA 


01 600 

5058 

34 

06 



PSHS 

D 

0161 ^ 

505 A 

EC 

62 



LI〕D 

2,S 

01620 

505 C 

58 




ABLB 


01630 

505 D 

49 




ROLA 


01640 

505 E 

58 




ASLB 


01650 

505F 

49 




ROLA 


01660 

fiOfcO 

E3 

62 



ADDD 

2,S 

01670 

5062 

58 




ABLB 


01680 

5063 

49 




ROLA 


01 690 

5064 

E3 

El 



ADDD 

,S++ 

01 フ〇〇 

73066 

ED 

E4 



STD 


0 5 710 

5068 

BD 

0072 


GN02 

JSR 

IN 

01720 

506 B 

81 

2D 



CMPA 

#〜 

01 730 

5060 

27 

IB 

508 A 


BEQ 

GN05 

01740 

506 F 

81 

30 



CMPA 

IT 0 

01 750 

5071 

25 

OB 

50 7 E 


Bl .0 

GN03 

01 760 

5073 

81 

39 



CMPA 


01770 

5075 


〇 7 

507E 


BHI 

6N03 

01780 

5077 

BD 

D06E 



JSR 

OUT 

01 790 

507 A 

80 

30 



SUBA 

# * 0 

01 BOO 

5070 

20 

D7 

5055 


BRA 

GNO1 

01810 

507 E 

35 

06 


GN03 

PULS 

D 

01820 

5080 

7D 

50B7 



TST 

FLAG 

01830 

5063 

27 

04 

5089 


BEQ 

6N04 

01B40 

5085 

40 




NEBA 


01850 

5086 

50 




MEGB 


01 860 

50B フ 

82 

00 



BBCA 

#0 

01870 

5089 

39 



GN04 

RTS 


01880 

508A 

7C 

5087 


GN05 

INC 

FLAG 

01890 

5000 

BD 

DOSE 



JSR 

OUT 

01900 

5p 90 

20 

D6 

5068 


BRA 

GN02 

01910 





* 



01920 

5092 


ODOfi 


MES 1 

FDB 

$ODOA 

01 930 

5094 


20 



FCC 

J x%--= f 

0 1940 

509 C 


00 



FOB 

0 

01950 

5090 


ODOA 


MES2 

FDB 

SiODOA 

01960 

509 F 


20 



FCC 


01 970 

50A7 


00 



FCB 

0 

01980 

50A8 


ODOft 


MEB3 

FDB 

$ODOA 

01990 

50AA 


58 



FCC 

# X7. / YX= J 

02000 

50B2 


00 



FCB 

0 

02010 

50B3 


2E 


MES4 

FCC 

# dr 

* * • 

02020 

50B6 


0<j 



FCB 

0 

02030 





it 



02040 

5067 


00 


FLAG 

FCB 

0 






* 



020 tO 



5000 



E{ND 

START 

TOTAL 

ERRORS 00000 — 00000 





了 OTA し WARNINGS 00000--00000 

PROGRAM BEGIN ADDR- 5000 
PROGRAM END ADDR=50B7 
PROGRAM ENTRY ADDR 巧 000 


t ^： ; pr 門 (■〕（ 心 
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* 


つ 


XZ :12 

vr.^5 

x% / Y7 パ 2… 

X •/•='■ 30 

、” H 

XZ / Y7_= -7 … —2 
X7^0 
VX~5 

X /： / Y7,-; 〇…〇 
X7 • 二 0 
Y7.-0 

Division By Zero 
Ready 
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4 FA C の比較 ► 

m ] F AC 1 と FAC 2 の値を比較します. 

〔パタ ー ン1〕 

パラメータ | FAC 1— 数値 （1) $17 ―数値 （ 1 ) の型 （ 2，4，8 ) 

FAC 2 —数値 （2) $ 5 D — 数値 （ 2 ) の型 （ 2，4, 8 ) 

J S R $ 9 3 4 D 

JSRSBE 4 4 の順で実行する. 


アドレス CC , A , B , X , U 


レジスタ 

F A C 1 -F A C 2が負のとき 

B レジスタ: 

:$ F F 


0のとき 

B レジスタ: 

:$ 0 0 


正のとき 

B レジスタ: 

:$ 01 

r パター 

ン2〕 



パラメータ 

F AC 1―数値 U ) (実数） 




F AC 2—数値 （2) (実数） 

$15 —倍精度フラグ （ 〇 :単精度，〇以外：倍精度) 


アドレス I $ B 3 E 1 
^レジスタ CC ， A ， B， X 

| 復帰情 〔パターン1〕と同様 

〔パターン3〕 

I パ分一夕| FAC 1—被演算子（整数） 

F AC 2 —演算子（整数） 

[_ ァドレス]$ B E 4 A 
レジスタ， CC , A , B 

復帰情報 FAC 2 — FAC 1 の正負により B レジスタをセットします. 

B レジスタ：負のとき $ F F 

0のとき $ Q 0 
正のとき $ 01 
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PAGE 001 ( 


UiUU り 雀 

01010 并 compare FAC 


01 020 





it 


0ir«30 






DPT 

01040 



D807 


LINEIN 

EDU 

01050 



D08E 


□UT 

F.QU 

(:- 1 060 



0072 


IN 

FDU 

010 -70 



B^)0B 


STRFAC 

F_QU 

0] O&O 



3622 


FACSTR 

EQU 

f M 0 9 0 



C ： 34D 


FACSET 

EQU 

0 11 00 



BE44 


FACCNP 

EQU 

C» 1 1 1 0 



93E8 


FACPSH 

EQU 

01120 



9411 


FACPUL 

EDU 

〇 1 ] 30 

气〇 oc_ 





□RG 

01 140 



5000 


START 

EQU 

01 150 





菁 


011 60 

5000 

9E 

D9 



LDX 

0 u, 

5002 

BF 

5086 



SIX 

01 ISO 

5005 

BF 

c™ c- c - 

d U J J 


NEXT 

LDX 

01 190 

5H0B 

8D 

41 

504 B 


BSR 

01 200 

50 0 A 

BD 

DB07 



JSR 

01210 

5000 

6D 

01 



TST 

01220 

50 or 

27 

ZA 

5045 


BEQ 

01 

5011 

9F 

D9 



SIX 

017A0 

5013 

BD 

B50B 



JSR 

017! 50 

5^16 

BD 

93E8 



JSR 

01260 







OK V0 

5019 

8E 

50SE 



LDX 

01280 

501C 

8D 

2D 

504 B 


BSR 

01290 

501E 

BD 

0807 



JSR 

01 300 

502 1 

9F 

D9 



STX 

01310 

5023 

BD 

B50B 



JSR 

01320 

5026 

BD 

9411 



JSR 

01330 





箐 


01340 

5029 

BD 

9340 



JSR 

01350 

502C 

BD 

BE44 



JSR 

01 360 





* 


01370 

502 F 

5D 




TBTB 


M f NDS,N0G,P=255 
fD 807 line input 
$D0BE output 1 character 
$0072 input 1 character 

r: an vert string into FAC 1 
$E622 convert FAC1 into string 
¢9340 set type of FAC 
$BE 44 FAC compare 
$93E8 push FAC1 
$94" pliI1 FAC2 
$5000 

-M- 

$D9 save PDINTER 

TEMP 

ttPROHP1output message 
MESSAG 

LINEIN get number 

1,X i -f null then end oi program 

END 

$D9 

ST RF AC string->FA C1 
FACPSH FACl=>stack 

ttPRDMP2 

MESSAG 

LINEIN get number 
$D9 

BTRFAC string=>FACl 
FACPUL. stacks >FAC2 

FACSET 

FA 匚 CMP FAC1;FAC2(V-X) 


01 380 

5030 

27 

07 

5039 


BEQ 

EQ 

i f X^Y 

01390 

5032 

2B 

OA 

503 E 


BMI 

LESS 

if Y-X<0 

01 ノ 1 no 

5034 

8E 

505 F 



LDX 

林 MESGT 

if Y—X>0 

01410 

5037 

20 

08 

5041 


BRA 

MESDUT 


01420 

5039 

8E ： 

506C 


EQ 

LDX 

#MESED 


01 430 

503 C 

20 

03 

5041 


BRfi 

MESDUT 


01440 

503 E 

8E 

5079 


LESS 

LDX 

ttMESLES 


01 450 

5041 

8D 

08 

504B 

MEBQUT 

BSR 

MESSAG 


01460 

5043 

20 

CO 

5005 


ERA 

NEXT 


01470 





-M- 




01400 

5045 

BE 

5086 


END 

LDX 

TEMP 

end 

01490 

5048 

9F 

D9 



STX 

$D9 


01500 

504 A 

39 




RTS 



01510 









01520 





* subroutine:output 1 

1 i ne 

01530 









01540 

504 B 

A£> 

80 


MESSAG 

LDA 



01550 

504 D 

27 

05 

5054 


BED 

M01 


vlb6U 

5(._4K 

t-V 

D08t 



JSR 

OUT 


01570 

5052 

20 

F7 

504 B 


BRA 

MESSAG 


01580 

5054 

39 



M01 

RTS 



0 1390 





省 




01 600 

TT f-fcCT-I^r 


0DOA 


PR0MP1 

FDB 

¢000 A 


01610 

5057 


58 



FCC 

* X 〆 


01620 

5 05 A 


00 



FCB 

0 


01630 

50SB 


59 


PR0MP2 

FCC 

,Y # 


01640 

505 E 


00 



FCB 

0 


U 16S0 

505F 


20 


HESST 

FCC 

^ X < 

Y ! ! # 

01660 

506 B 


00 



FCB 

0 


01670 

506 C 


20 


MEBED 

F 匚 C 

" X - 

Y ! ! # 

01680 

5078 


00 



FCB 

0 


01690 

5079 


20 


MESLEB 

FCC 

* X > 

Y ! 「 
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01 700 
01710 

5085 

00 


FCB 

0 

01 7 20 

SOBfe 

0000 

TEMP 

FDB 

0 

01730 

0 1740 


5000 

* 

END 

START 


TOTAL ERRORS 00000- ■■■■ 00000 
TOTAL WARNINGS 0000 〇——〇〇〇〇〇 

PROGRAM 0 FIG IN ADDR- 5000 
PROGRAM END ADDR=50B7 
PROGRAM ENTRY ADDR:: 5000 


^ ； ct?c ち卜 iryooo 


1 

X 


A 


23^3 
2346 
< y 
234；：- 
2345 


X 


1.. 2345 
し 2344 
〆 > Y 


% 


Ready 



01 000 


U R 、 1 リ 


01 020 


0K_30 


01040 


01050 


01060 


01070 


0] 080 


01 090 


01130 

「 1 〇 00 

0 1110 


0 U 「,0 


01 J 60 

5000 

01170 

5002 

01180 

5005 

01190 

5008 

01 200 

50 OA 

01210 

50 on 

0! 220 

50 OF 

01 230 

5011 

01240 

5013 

01 250 

5016 

01260 

5019 

01270 

501C 

01 280 

50IE 

01290 

5021 

01 300 

5023 

01470 


0 1.480 

5025 

01490 


01500 

502 A 

01510 


01520 


0 1530 


01540, 

502 & 

01550 

5020 

0 ) 560 

502F 

01570 

5032 

01 580 

5031 

01590 




* sign 

change? 






□PT 

M,NOS, 

,NDB,P=255 


D 807 

LINE IN 

EQU 

¢0807 

iine input 

D08E 

OUT 

F.QU 

^DOBE 

output 

1 character 

0072 

IN 

EQU 

$0072 

input 1 

character 

E50B 

STRFAC 

EG!U 

50 B 

convert 

string into FAC1 

B622 

FACSTR 

EQU 

0>Bfc 22 

convert 

FAC1 into string 

BDC9 

SIGNC 

EOU 

李 BDC9 





DRG 

巧 000 



5000 

START 

EQU 

篑 




长 

D? 

5052 

5035 NEXT 

21 S02B 
D 807 
01 

14 5025 

D7 

B50B 
BDC9 
5044 

0D 502 B 

B622 

08 502B 

EO 5005 

* 

5052 END LDX TEMP end 

D9 BTX SD9 

RTS 

* subroutine:output 1 line 


80 


MESSAG 

LDA 

,X + 

05 

5034 


BEQ 

M01 

DOBE 



JSR 

OUT 

F7 

5028 


BRA 

MESSAG 



M01 

RTS 



* 


LDX ¢09 save POINTER 

STX TEMP 

LDX ^PROMPT output message 

BSR MESSAG 

JSR し IMEIN g&t number 

TST I,X if null then end of program 

BEQ END 

STX ¢09 

JSR STRPAC stri ng-=>FACl 

JSR SIGNC FAC1<^ 一 FAC 1 

LDX ttANSWER 

BSR MESSAG 

JSR FACSTR output FAC1 

BSR MEBSA6 

BRA NEXT 


単項演算 

◄ FAC の符号を反転する ► 

[m W \ fac 1の符号を反転します. 

L パラ^ータ] F A C 1 一数値 

$17 —数値の型 

アドレス ]$ B DC 9 
レジスタ I CC, A, B, X, U 

復帰情報 I FAC 1 :結果 

$17 —結果の数値の型 

~m 親 H FAC 1二一 FAC 1を実行します. 

サンプル 

PAGE 001 ( , ) 


EFEDDD7FDDEDDDOEF9 6 7 D r- 9 
9 Be e B627BB88B82 B 93 A f .J B 2 3 
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01 600 

5035 

ODOA 

PROMPT 

FDB 

¢000 A 

01610 

5037 

20 


FCC 

'number X 

01 620 

5043 

00 


FCE 

0 

01630 

5044 

ODOA 

ANSWER 

FDB 

$ODOA 

0 1,640 

5046 

20 


FCC 

f -X 

〇 1 650 

5051 

00 


FCB 

0 

0 i71 <) 



普 



01720 

er /-v cr ^ 

0000 

TENP 

FDB 

0 

01730 



* 



01740 


5000 


END 

START 






TOTAL ERRORS 00000 —00 000 
Tf]TAL WARNINGS 00000…-00000 

PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=5053 
PROGRAM ENTRY (WDH^^OOO 


exec 5000 


number 


つ 12345&7t^? 


一 X ^-123456789 
number X ?1.234567B9 


X 


number 


1_ 23456789 
-1000000 


- X 二 1E+06 

number X ? 321 65498765432 1 35467 B 945645 132 


— X 

number X 


3. 21654987654 >214D+29 


F'c^aci 
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数値関数 


爐 

槪 

II 1 

ハガ， 



アドレス 


FAC 1を引数として関数値を求めます. 

FAC 1—数値（単精度実数） $17-4 (単精度実数) 

絶対値 （A B S ) - -$ B 3 D 5 

アーク タンジェン ト （ ATN ) -$ B E F 5 


コサイン （ COS ) -$ B E B 0 

e を底とする指数関数 （ EXP ) - $BB 5 B 

整数部分 （F I X ) - $B 4 81 

引数の値を超えない最大の整数 （ 丨 NT ) — $B 4 7 2 

自然対数 （ LOG ) - $B 0 A A 

符号 （S G N ) - $ B 3 B E 

サイン （S I N ) - $ B E 6 6 

平方根 （ SQR ) - -$BAEE 

タンジェント （ TAN ) - $ B E B 1 

レジスタ] CC ， A ， B ， X， U 

復帰情報 1 F AC 1： 結果 

$17： 結果の数値の値 


解 脱] FAC 1二 f ( FAC 1 ) を実行します.引数は単精度実数に限られ， 
演算も取精度で行われます（結果は実数であるとは限りません） • 


サンプル 


PAGE 

00 i ( 



i 







〇 1000 











01010 




* f Line 

t i on 

cal c: 1 atar 





01020 




* 







〇 1030 





OPT 

M,N0S,N0G,P=255 




〇 ] 040 



0907 

LINEIN 

EHU 

807 

line input 




01050 



9BDB 

ME5SAG 

EDU 

49BDFJ 

nut p u t f ram 

(X+I ) 

t i 110 

0106 jO 



Doet 

GUT 

EQIJ 

$DOBE 

output ! character 


01070 



■ 二 “）/ 

FAC1.X 

EOU 

¢6337 

FAC1 - > 




〇 | opo 



B3n! 

FACX*1 

EGHi 

301 

<X) = ： >FA(：i 







B50P 

BTRFAC 

EQIJ 

$B5C_B 

convert string into 

FACi 

0 t 彳〇〇 



B620 

FACBTR 

EOU 

壬 B 620 

convert F : AC 1 

into 

s t 

: r i n q 

0111 0 



BCEO 

CHMB 

EQU 

$BCEO 

convert into 

3ina1e 

procisaon 

01120 

5000 




ORG 

^5000 





01130 



5000 

START 

EQU 






01140 




簧 







01150 

5000 

9F 

D9 


LDX 

¢09 

save POINTER 




01160 

3002 

HF 

50CA 


STX 

TEMP 





01170 

5005 

8F 

50 BA 

NEXT 

LDX 

ttPROMPT-1output message 



01180 

5008 

BD 

9BDB 


J SR 

MESSAG 





01190 

500 B 

BD 

DB07 


■JBR 

LINEI rJ 





01200 

50 OE 

6D 

01 


TST 

1,X 

i -f null then 

end 

of 

proqram 

0 ] 210 

50 ro 

jL / 

6C 

507 E 

BEG 

END 






218 







11B3 
26 

BE 

9F 

39 


5084 



LDU 

STABLE 

01 


NOJ 

LDA 

J, , X 

C4 



CMP A 

,U 

5B 

5076 


BNE 

N03 

02 



LDA 

2 f X 

4:1 



CMPft 

1,U 

55 

5076 


BNE 

N03 

03 



LDA 

"TV 
， 入 

42 



CMPA 

2,U 

4F 

5076 

* 

BNE 

N03 




CLHB 


in 亡 

L/ ttJ 


N02 

し DA 

B,U 


get table addr, 
compart? 


5028 


DO BE 

02 

Ft 

28 

D08E 

03 

D9 

43 

50CC 

5UCE 

p T 7 

B 620 

IF 

9FJDB 

29 

DOSE 

3 0 
D> )RF 


1 

B7.n 1 

9F 「 ,(X: C 
B 620 
IF 

9BDB 

8F 500 ： 
45 

50 BB 

97 501 1 

50CA 

D r r 


*■ 

N03 


■M_ 

END 


JSR 

INCB 

CMPP 


LEAU 

CMPU 

BNE 

LDX 

STX 

RTS 


display function name 


OUT 


#2 


B し S 

N02 


LDA 

# # ( 


JSR 

OUT 


LEAX 

3, X 

skip function name 

BIX 

$D9 

set pointer 

LDX 

3 , u 

qet address 

STX 

ADDR 


JSR 

STRFAC 

=trinq=>FAC1 

JSR 

CSM6 

con var t intro SNT3 

LDX 

#FhCX 

save FAC1 

JSR 

FAC1.V 


J SR 

FACSTR 

FAC1->strinq 

LEAX 

-1,X 


JSR 

MESSAG 

output 

LD« 



JBR 

gut 


i... 

袢 ^ 


ogp 

011 1 


LDA 

#4 

r；nme bad: FhCI 

ST A 

串 17 


LOX 

ttFACX 


JSR 

FACX.1 


OSR 

LADDR：I 

p ^ p r i i, t ： ^ 

JSH 

FACS 1R 

F AC1—> s t rin a 

LEAX 

-1,X 


JSR 

ME3SAB 

n m i~ n i i ^ 

Tuji4i xu j r ■■ RaTP ■ ■■圓 fn 

BRA 

NE O 



5,U 

tt- TAEiLE 
N01 

TEMP 

$D9 


end o-f ex ecut i on 


41 

B3D5 

4.1 

BFF5 

4 フ 

BE6>0 

45 

BB r 5B 

46 
B461 
4 r ； 

B 472 
4C 

BOAA 

CT T 


^ i u. mp 

■丸 

戈 

普 

TABLE 


table 
f unc: t i on 


namci 4 < ' X X X , 3by tes) 


jnc: t i on address < kbytes) 


FCC 

FDB 

FCC 

FOB 

FCC 

FDB 

FCC 

F r DB 

FCC 

FDB 

FCC 

FDB 

FCC 

FDB 

FCC 


f ABB ^ 
$B3DS 
^ AIN # 
^BEF5 
て DS # 
^BE60 
r EXF t f 

帥 B3B 

， FIX' 

^ I NT J 
¢8472 
IDG f 

• SEN # 


01 220 

5012 

01230 

501.5 

01240 

5017 

01250 

5019 

01260 

501 B 

0 1270 

50ID 

01 280 

501F 

01290 

5021 

01300 

5020 

0 3,310 

5025 

01320 


01330 

5027 

01340 

5028 

01350 

5020 

01 360 

502 D 

01370 

502 E 

01 380 

5030 

01390 

5032 

01 400 

5034 

01410 

500 ■ 7 

01420 

5039 

01 430 

gn'p 

0 j 440 

503 D 

丨 450 


0 J 46< • 

5 ，、斗 3 

(：'J 4 70 

5046 

01 40 い 

5049 

r.M 4 叫 

504 C 

OJ 

304 F 

OL 巳 10 

50 巳 1 

r>] 

50^.4 

0 15:50 

S( 

Oj 340 


r\ 1 ssn 

Wi 

O J こ ，,； SO 


_■，t L 570 

3( ノ 

0 1580 

5062 

01590 

5065 

fj ] 600 

^f ； i68 

0 161O 

506 C 

0,16 ： '0 

ZtObF 

0 1 630 

5071 

0 1640 

5074 

01650 


01 660 

5076 

01670 

5078 

01 ARO 

507 C 

01 690 


01700 

507 E 

O17 L 0 

3081 

01720 

50B3 

01 730 


01740 


01 750 


01 760 


0 1 770 


01780 

[;0R4 

0 i 790 

5087 

01 800 

5089 

01810 

50 BC 

01620 

508 E 

01830 

5091 

01 R40 

5093 

01850 

5096 

〇 ] 860 

5098 

01870 

509 B 

0iB80 

509 D 

01890 

50AO 

〇丄 900 

?0A2 

0 1910 

50A5 

01920 

50A7 


E 6 16 61 6 616 F 6 D c 1 3 6 D o FE FDD E D D c- D 6 D 6 C 二 ：./ EDD D O D o 
c A A 2 Afl2 C A 2SAB5C28 B 3 9ABB p 8 BH3B 8 B 8B8 9 8 BrtB 3 B 2 




01930 

50AA 

B3BE 


FDB 

*B3BE 

01940 

50ftC 



FCC 

^ SIN # 

01950 

5 OAF 

BE* 66 


FDB 

UBE 66 

01960 

5 OBI 

53 


F^C 

^SQR ^ 

01970 

50B4 

BAEE 


FDB 

fBAEE 

019 BO 

50B6 

54 


FCC 

# TAN # 

01990 

50B9 

BFB1 


FDB 

乐 EEBi 

02nnn 


50EB 

.TABLE 

EQU 

* 

02010 



* 



02020 

50PB 

ODOA 

PROMPT 

FDB 

fODOA 

02030 

50BD 

bh 


FCC 

^-f-F-f 

02040 

50C9 

00 


FCB 

0 

02050 






02060 

50 匚 A 

0000 

TEMP 

FDB 

0 

02070 

50CC 

0000 

ADDR 

FDB 

0 

020 BO 

50CE 

0004 

FACX 

RMB 

4 

02090 



* 



02100 


5000 


END 

START 

TOTAL 

ERRORS 

00000——00000 





TOTAL WARNINGS 00000--00000 

PROGRAM BEGIN ADDR- 5000 
PROGRAM END ADDR-50D1 
PROGRAM ENTRY ADDR 二 5000 

EXEC ち H 5000 

-f number =SGN —5 

SGN(-5>=—i 

f f f number AN 1 

TAN (1) 二 1*55741 

f f f number —ATN 1 - 55741 

ATN( 1.55741)= 1 

f 千 f number =FIX -K 5 

FIX ¢-1.5)=- 1 

■f -f I number =1 NT -1*5 

INT<-1.5)^-2 

+ number =EXF' 2 

EXF' < 2) = 7.38906 

f {i number =L06 7,38906 

LOG( 7. 38906)= 2 

■f -f 4 number =SQR 2 

5QR( 2>=1 - 41421 

+ f -f number = 

Ready 


number 
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I/O Address Mapping 


本章では， FM 7 がサポートしている， I /〇のアドレスを解説しました. 

各 I /〇は，アドレス順にならベて解説してあります. 

RS 2 3 2 C とディスクについては，その I /〇をつかさどる L S I の機能に 
よるところが太きく，概略の記述にとどめました•詳しくは，各 L S I の閲係 K 
料等を御参照下さい. 

,READ 卜 このアドレスを読み出すときの機能を示します. 

◄ WRITE _ このアドレスに書き込んだときの機能を示します. 



$ F D 0 0 


◄ R E A 


• CPUC LK 


♦ K E Y D 8 

◄ WRIT E 


• C S TWR T 
•CMOTOR 


• L P S T R B 


• LP SLOT 



C P U C L K 
KE YD 8 


C PU の動作クロックを示します，動作クロックは後方のデッ 
プスイッチの4番によつて決定されます. 

1: 2 MHz 


0:1. 2 MHz 

キ ー ボ ー ドデ ー タの第8ビットです.キ ー ボ ー ド関連について 
は$ F D 01の Read の項を御参照下さい. 



オーディオカセット への 出カデータ 

才ーデイオカセットのモータコントロ ール. 

1:モータ ON 
0 :モータ OFF 

プリンタヘストローブ信号を与えるためのものです，初期状 

態では1にセットしておき，$ FD 01に出カデータをセット 
して， 1 — 0 — 1 と変化させることによってストローブ信号を 
出力します（プリンタ側のデータ読み込みは，立ち下がり （1 
-> 0 ) によって行われます）. 

" msT プリンタ選択用の信号です.この信号を〇にすると，プ 
リンタが選択されて，オンライン状態になります. 
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$ F D 01 



R E A 


• K E Y D 0 
K E Y D 7 


1 ~~^KE YD 0 〜 KE YD 7 

キーボードで最後に押されたキーのアスキーコードをホします. 
$ FD 0 0 の bit 7 の KE YD 8 が 1 のときは， PF キーの番 
号を示します. 


◄WR \ TE> 


1 - "P DATAO 〜 PDATA7 

• P D A T A 0 プリンタに出力するデータです，ここでデータを書き込んだ上 

PD ；1 t a 7 で， LP S T ¥百信号を出力します.なおデータは，ストロ 

ーブ信号（最低 0. 5 as) をはさんで前後最低 0. 5ys の間, 
保持される必要がありますが， 2 M Hz の 6 8 0 9 では最低 （ S 
T A $ x X) でも 2 "s を消費し，また，データはラッチされて 
いるので問題となりません. 
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$ F D 0 2 


◄ READ . 

7 丨 6 | 5 了 4 f 3 | 2 | 1 | 0 
I 1 [j 「 匕 LP BUSY 

! I - -L P ¥rror 

1 1 - -L P ACKNG 

I - ^LP PE 

1 - -LP DET 1 

L _ P DET 2 

- - - C STRED 

♦し P BUSY プリンタの状態を示す信号です.プリンタが動作可能（次の 

データの出力が可能）の場合に0となります.プリンタが以下 
の状態の場合に1 ( BUSY ) となります. 

①データ読み取り中 ②印字中 

③オフライン状態 ④エラー発生 

プリンタにデータを送出するときには，このビジーフラグが0 
になるまで待つ必要があります. 

• LP ERROR プリンタにエラーが発生した場合に0になります.このエ 

ラーフラグが0のときにはデ ー タを送出するのは不適当です. 

• L P A C KN^G プリンタがデータの受け取りを終了し，データの保持を解 

除してもよいことを示す信号です.短期間（最低2 # s ) の間， 
0になることによって伝えます. 

本来は，プリンタ側の処理の終了は，この信号を用いて行 
われるべきですが，最低2 // s の信号を検出するのは C PU の 
处理スピードから困難であるので，通常のプリンタ出力では， 

L P B U S Y 信号をかわりに用います. 

なお，この信号を CPU への I RQ 割り込みとして受け取る 
こともできます. （$ FD 0 2 Write 参照） 

• L P PE プリンタが，紙なし状態になっていることを，信号が1であ 

ることによって示します. 

參 LP DET 1, 2 接続されているプリンタの種類を検知するためのもので 

す.それぞれは，プリンタコネクタの3番ピンと6番ピンの状 
態により決定されます. 


225 





• CSTRED オーディオカセットからの入カデータを示します. 

◄ WR I T 





♦ 


分 


KEY 
L P 

TIMER 

MFD 

Tx RDY 

Rx RDY 


割り込み 

マスク 

! o : 

マスク 

1:許可 


SYNDET 


• KEY このビットを 1 にすることにより，キーボードからの割り込 

み信号（キー入力があると発生する I RQ ) がメイン CPU に 
加わるようになります.また，それまでサブ c PU に加わって 
いたキーボードからの割り込み信号は加わらなくなります. 

キーボードからの割り込み要求は，$ FD 01(キーデータ〉 
をリードすることにより-解除されます. 

• LP このビットを 1 にすることにより，プリンタが L P A~CKN 

G 信号を送ってきたときに， IRQ が発生します. 

この割り込み要求は，$ FD 0 3をリードすることにより解 
除されます. 

• TIMER このビットを1にすることにより，2, 03 ms ごとに IRQ 

が発生します. 

この割り込み要求は，$ FD 0 3をリードすることにより解 
除されます. 

• MFD このビットを 1 にすることにより， FDC (Floppy Disk 

Controller ) からの I R Q がメイン C P U に加わるようになり 
ます.この割り込み要求は，$ FD 18をリードすることによ 
り解除されます. 

• Tx RDY USART (Universal Synchronous/Asynchronus 

Receiver/Transmitter : 8 2 51 A ) を使用している場合， 
この ビッ、卜を 1にすれば，送信データを受けとれるようになる 
と IRQ が発生します. 
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この割り込み要求は， S FD 0 6 に送信データをセットする 
ことにより解除されます. 

• Rx RD Y このビットを1にすることにより， US ART 使用時に，受 

信 バッファに データがセットされると I RQ が発生します. 

この割り込み要求は，$ FD 0 6 にセットされている受信デ 
一夕を読み取ることにより，解除されます. 

• S Y N DET このビットを 1 にすると， USART が，同期式モードで内 

部 Sync 検出モードのときに Sync キャラクタを検出した場合 
か，非同期式モードでブレーク状態を検出した場合に， I R Q を 
発生します. 


以上の IRQ のうち， F-BASIC は， RxRDY と T I ME R を使用してい 
ます. 

F — BASIC は， IRQ が発生すると，要求元を判別し，それぞれ次のアド 
レスをサブルーチンコールするようになっています.このうち， TIMER を除 
くそれぞれの番地には RTS ($3 9) が初期設定されています. 

KEY $ 0 5 E 2 

TIMER $ 0 5 DF 

その他 $ 0 2 9 C 
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$ F D 0 3 

◄ RE AD^ 

KEY 1 割り込み 

LP ( IRQ ) 

TIMER フラグ 

EXT 〆 

IRQ の要求元を調べるためのアドレスです.割り込み要求元のビットが〇に 
なります （ EXT は，前出の I RQ のうち， SYNDET , RxRDY , Tx R 
DY , MFD の I RQ のときに 0 になります). 

◄ WR I T 

SPEAKER 
BEEP 
BEE P 1 

• SPEAKER スピーカーに苦を出すかどうかを指定します.このビットが 

0の時は， BEEP , BEEP 1の値によらず音は出ません. 

• BEEP このビットに1を書き込むと，短時間ブザーがなります. 

• BEEP 1 このビットを1にすると，ブザーが鳴り続けます.このビッ 

卜に〇を書き込むと，ブザーは鳴り止みます. 

$ F D 0 4 

◄ R E A 

ATENT 
BREAK 

F I R Q の要求元を示すアドレスで，割り込み要求元のビットが0になリます. 
になります. 

• ATEMT サブ CPU からの ATTENT I ON 割り込み発生を示しま 

す.割り込み発生の要因としては，タイマ， PF キーがあります. 
•BREAK BREAK キーが押されたことによって，割リ込みが発生し 

たことを示します. 
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し EXTDET 

- ^BUS Y 

•EXTDET 外部にディスク， RS 232 C カードなどが拡張されている 

場合に0になります. 

• busy サブ CPU がコマンド実行中であることを示します • 

◄ WR 丨 T 

Z 8 0 W 
CANCEL 
HALT 

• Z 8 0 W このビットに]■を書き込むと，68 0 9 CPU は HALT 状 

態になり， Z 8 0 AC PU の WA I T が解除され， Z 8 0 AC 
PU が動作を開始します. 

また， Z 8 0 AC PU がこの ビットに 〇 を書き込むと， Z 8 
0 A CPU は W A I T 状態になり，6 8 0 9 CPU の HALT 
が解除され， 6809 CPU が動作を開始します. 
•CANCEL サブ CPU が GET 又は，グラフィックカーソルコマンド実 

行中にこのビットを1にすると，サブ C PU はコマンドの実行 
を中止して，コマンド待ちになります. 

♦HALT 上記の BUSY 信号が0 (レディ）であることを確認した上 

で，このビットを1にするとサブ CPU は HALT 状態になり， 
共有 RAM はメイン C PU のアドレスバスに接続されます . H 
ALT の解除は，このビットを0にすることによって行います. 
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$ F D 0 6 

◄ R E A 

シリアル受信データ （US ART 8 2 51 A の受信データレジスタ) 

◄WRITER 

シリアル送信データ （USART 8 2 51 A の送信データレジスタ) 

$ F D 0 7 



USART 8 2 5 1 A の ステータス レジスタです. 

• f x RD Y USART が C PU からデータを受け取ることができるとき 

1となります. CPU からデータを受け取ると0となります. 

• Rx RD Y US A RT が CPU にデータを渡すことができる状態のと 

きに1になります. C PU がデータを受け取ると自動的に0に 
なります. 

•Tx E U SART が送信すべきデータを持たないときに1になりま 

す. CPU からデータを受けとると自動的に〇になります. 
•PE パリテイエラーが生じると 1 となります. 

•0 E オーバーランエラーが 生じると1となります. 

• F E フレー ミング エラーが 生じると 1 となります. 

• S Y N D E T 同期式モードで内部 Sync 検出モ ー ドのときに Sync キャラ 

クタを検出した場合か，非同期式モードでブレーク状態を検出 
した場合に1となります. 
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參 D S R 


◄ WR I T E! 

U S A R T 8 2 
8 2 5 1 A がリセ 

4 モー*ド•ワ ー * 

同期式モード 


• L 1, L 2 


• PEN 

• E P 

• E S D 

• S C S 


USART 825 1 A の2 2番ピンの状態を反転したものを 
示します（このビンの用途は特に限定されていません）. 

► 

51 A のコントロールレジスタです.このレジスタの内容は， 
ット状態の直後であるか否かによって異なります. 

ド ► (リセット状態の直後のとき） 



_L 1 

，し2 


I :| I ' - -PEN 

| I - P 

- - E 。 D 

- -SCS 

1キャラクタの長さを示します. 


L 1 

0 

1 

0 

1 

L 2 

0 

0 

1 

1 


5ビット 

6ビット 

. 7ビット 

8ビット 


このビットが1であると，パリティ動作を行います. 
パリティを指定します.1のとき偶数パリティ，0のとき奇 
数パリティになります. 

外部 Sync 検出モードを1で指定します. 0のときには内部 
Sync 検出モ ー ドとなります， 

1のときシングルキャラクタ Sync モード， 0のときダブル 
キャラクタ Sync モードになります. 
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非同期式モー 


DBE 



B 1 
B 2 
L 1 


同期式モードの 
場合と同様 


-PEN 
kE P 


卜を指定します. 


暉 

EDI 


D 


X 16 X 8 4 


ビットの長さを指定します 


* 


m 


■■■■ 


、 1 


■■■■■■■■ 


m 













• Rx E このビットを 1 にすることで受信動作が開始されます. 

• S BR K Tx D の状態をこのビットを1にすることで強制的に '' L 〃に 

します.（センド•ブレーク•キャラクタ） 

このビットを1にすると，ステータスレジスタの エラー フラ 
グがリセットされます. 

「也 _T S ノ ( リクエスト.トゥ•センド）端子をコントロールす 
るビットです. 

8 2 5 1 A をソフトウェアからリセットするためのビットで， 
1にセットされると8 2 51 A はリセット状態になり，以後1 
回だけはモードワードを受け付けるようになります. 

同期式モードの場合に，このビットを1にすると，ハントモ 
ー ドに入ります. 

以上の RS 2 3 2 C の詳細については ， i 8 2 51 A 関係資料を御参照下さい. 

$ F D 0 D 

◄ WR 丨 T 

P SG のコマンドレジスタです.以下にコマンドを示します. 

$00：インアクティブ • コマンド 

$01：リード•コマンド 

$02 :ライト.コマンド 

$03：レジスタ指定•コマンド 

$ FD 0 E 

◄ READ*WRITEI^ 

P SG の データ レジスタです. 

着 

例）レジスタ7にデータ$ 01を書き込む. 

1. $07 (レジスタ番号）を $ FD 0 E に書き込む. 

2. $0 3 (レジスタ指定•コマンド）を $ FD 0 D に書き込む. 

3. $ 0 0 (インアクティブ•コマンド）を $ FD 0 D に書き込む. 

4. $01(書き込むデータ）を $ FD 0 E に書き込む. 

5. $02 (ライト•コマンド）を FD 0 D に 書き込む. 

6. $00 (インアクティブ*コマンド）を $ FD 0 D に書き込む. 


• E R 

• RTS 

• E R 

• EH 
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$ F D 0 F 

◄ R E A 

ROM モードを選択します （$ 8 0 0 0〜$ FBFF に ROM を設定します〉. 

◄ WR 丨 T 

RAM モードを選択します （$ 8 0 0 0〜$ FB FF に RAM を設定します). 

注意）このモードの切換えを行うプログラムは，$ 0 0 0 0〜$ 7 FFF に存 
在する必要があります. 

$ F D 18 

◄ R E A 

FDC のステータスレジスタです.レジスタの内容は， FDC に与える コマン 
ドによって異なります. 

螭 WR I T 

FDC のコマンドレジスタです. FDC のコマンドについては，富士通の MB 

8 8 7 7 A (又はその相当品）の関係資料を御参照下さい. 

$ F D 19 

◄ READ •WR I T 

FDC のトラックレジスタです. 

$ F D 1 A 

◄ READ •WR I T 

FDC のセクタレジスタです， 

$ F D 1 B 

◄READ•WRITE_ 

FDC のデ ー タレジスタです. 
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$ F D 1 C 

◄READ•WRITE_ 

ディスクのサイドを指*定します.最下位 （ LSB ) が0のとき表，1のとき裏 
をアクセスすることを示します. 

$ F D 1 D 

◄ READ *WR i T 


DR 0 

1 - ►DR 1 

- -DMOTOR 

• D R 0 , D R 1 アクセスするディスクドライブを指定します. 




• DMO T 0 R ディスクのモータを制御するためのビットです.1でモータ 

が回転します. 

Abort を行うと，ディスタのモータは停止してしまい，その後 
のディスクアクセスの際には，約7秒近く待たされることに 
なります.これを避けるには，ディスクアクセスの前に ， P 
OKE & HFD 1 D , 12 8を実行して，モータをあらかじめ 
回転させておくのが'適当です. 


$ F D 1 F 

◄ RE AD_ 

7 |"6 ] 5 [4 1:3 ] 2 I 1 [0 

^-- -I RQ 

• - -DRO 
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參 IRQ FDC がコマンドを実行し終ると i になります.通常はメイ 

ン CP U への割り込みは行われませんが，割り込みを行なう 

ようにも設定できます. （$ FD 02 参照） 

• D RQ データ要求が生じている場合に 1 となります.この要求があ 

り次第 CPU は，ただちに，データを受け取る（リード時）か 
書き込む（ライト時）かを行う必要があります. 

$ F D 2 0 ， $ F D 21 

◄ WR I T 

漢字 ROM をアクセスする際に， ROM のアドレスを書きこみます.$ FD 2 
0が上位，$ FD 21が下位になります.各漢字の ROM アドレスは， 「ユーザー 
ズマニュアル. システム仕様」を御参照下さい. 

$ F D 2 0 , $ FD 21の上位12ビットが各漢字を示し，下位4ビットは， 
そのビットパターンの位置を示します. 

$ F D 2 2 , $ F D 2 3 

◄ RE AD_ 

上記の $ FD 2 0，$ FD 2 1 で指定した漢字パターン16ビットのうち，$ F 
D 2 2に左側の8ビット，$ FD 2 3に右側の8ビットのビットバターンが現わ 
れます. 


$ F D 2 4〜$ FD 2 B 

拡張 ユニッ ト内に増設される ， RS 2 3 2 C インタフエースモジュール用のア 
ドレスです. それぞれの内容を以下に示します. 


ディバイス名 

COM 1 : 

COM 2 : 

COM 3 : 

COM 4 : 

データ レジスタ 

$ FD 0 6と同じ! 

$ F D 2 4 

$ FD 2 6 

$ FD 2 8 

$ FD 2 A 

コマン ドレジスタ 

$ FD 0 7と同じ| 

$ FD 2 5 

$ FD 2 7 

$ FD 2 9 

$ FD 2 B 
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$ F D 3 7 

◄ WR I T 

AB 

A R B :青 

AG R :赤 

D B G :緑 

DR 
DG 

• AB, A R i A G 

対応するビットを 1 とすると，その VRAM に対してのサブ 
C PU のアクセスは禁止されます，アクセスが禁止されると， 
サブ CPU はその VRAM への書き込みができなくなる他，そ 
の VRAM を読んでも， $ FF が返されます.しかし，全画面 

がスクロール_而の場合のスクロールは実行されてしまうので 
注意が必要です.これは ， FM 7が全画面のスクロールを，こ 
の指定に関係のないハードウェアで行っているためです. 

• D B, D R, D G 

対応するビットが0の V R A M が画面に表示されます. 



$ F D 3 8〜$ F D 3 F 


パレットレジスタです.各レジスタとも ， bit 0が B ， bit 1が R ， bit 2が G の 

カラーに対応しています . bit 3 -bit 7は関係ありません. 

◄READ•WRITE_ 




レットコードリセット時の色 
0 I 黒 

1 I 青 

2 赤 

3 マゼンダ 



ドリセット時の色 


緑 


水色 

黄 


画面のボーダーカラー （C R T の帰線区間の色）は， パレット コード0とな っ 
ているので，$ FD 3 8に黒以外の々ラーコードを書き込むことにより，ボーダ 
一カラーか t 旨定できます. 
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Workarea 


本章では ， F —BAS I C のワークエリアについて解説します. 

F — BASIC は，$117 8 F ( ROM モードの場合）をワークエリア 
として，プログラムを実行しています.これらの中には，あるサブルーチンでし 
か使われないもの，また，いろいろなルーチンで別の用途に用いているものなど 
さまざまです.そこで，この章では，第3章，第4章で述べたルーチンに必要な 
ものと，ユーザーが利用することの多いと思われるワークエリアを中心に解説し 
ました.そのため，アドレスが飛び飛びになっていますが，その間のアドレスも 
いろいろな用途に使われていることに注意して下さい.また，本章では，特に指 
定する以外は ， R 0 M モードである場合について書かれていますので注意して下 
さい. 




アドレス 

$0015 


$0017 


$0027〜$00 


$0033/$00 


$ 0 0 35/$00 


^ 

実数演算を行う時に，その演算を倍精度で行うか， 
単精度で行うかを示すフラグです. 

〇 :単精度 
0以外：倍精度 

FAC 1に格納されている数の型を示す値が入りま 

す. 

2 :整数 

3 :文字列 

4:単精度実数 
8:倍精度実数 

この値はそのまま， FAC のうち何バイトを使用し 
ているかを示す値になっています. 

J F FAC 3として使用します.$ 0 0 2 7が指数部， 
$0 0 28〜$002 E が仮数部，$ 0 0 2 F が符号 
部となります（実数の場合).この FAC は，乗算，除 
算などの時にワークとして使用します. 

5 4 BAS IC のテキストの先頭アドレスを示します. 
ROM モードでは通常$ 0 7 9 0となります.この値 
を書き替えてから NEW を実行することにより ， BA 
S IC のテキストの格納アドレスを後方にずらすこと 
が可能になります. 

例 ） POKE & H 3 3 ，&H 10 
POKE &H 3 4 ， &H 0 0 
NEW 

これにより， BASIC のテキストは，$10 0 
0以降に格納されるようになり，$ 7 9 0〜$10 
0 0を自凼に使えます. 

36 BASIC のテキストの終端のアドレスを示します, 

NEWiS ： 後の状態では，§0033 /$ 0034の値 
に2を加えた値になっています. 
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◄ BAS I C のテキストの構造 ► 



($ 3 5 / $ 3 6 ) 

また，この値は同時に単純変数の格納エリアの先頭 
アドレスも示しています. 

$ 0 0 3 B / $ 0 0 3 C 配列変数の格納エリアの先頭アドレスを示します. 

$ 0 0 3 D / $ 0 0 3 E BASI C の使用領域のうち，まだ未使用である部 

分の先頭アドレスを示します. 

$003 F /$0040 BASI C の文字領域の先頭アドレスを示します. 

実際には ， C LEAR 文の第2パラメータから第1パ 
ラメ ータの値を引いた値からさらに1引いた値です. 

$0041/$0042 BASI C の文字領域は，アドレスの上位から消費 

されていきますが，この値はすでに使用されている文 
字領域の先頭アドレスー1の値を示します.この値が 
$00 3 F /$004 0 に近づけば，力べージ コレク 

シヨンが行われるということを示しています. 
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46 CLEAR 文の第 2 パラメータ （ BASIC の使用 
する上限）の値から1を引いた値を示します • 


BASIC 

の 

テキスト 


($3 3/$ 3 4 ) 


単純変数 


配列変数 


未使用領域 


($ 3 5/$ 3 6 


($3 B/$ 3 C ) 


($ 3 D/$ 3 E 


($3 F/$ 4 0 


文字領域 
(未使用） 


消費した 

領域 


フリー 

エリア 


( $ 4 ! / $ 4 2 




C L E A R 文 


牙 




フメ —夕 


($4 5/$ 4 6 


C L E A R 文矛 2 パラメータ 


243 




$0047 / $ 0048 実行中の行の行番号を示します.ダイレクトモード 

の時には，$ FFFF がセットされています. 

$0049 / $ 004A CONT で実行再開する行の行番号がはいります. 

$004 D/$004E CONT で実行再開するステートメントのあるアド 

レスがはいります.この値が 0 のときには， Can^t Con¬ 
tinue エラーとなります. 

$0 0 4 F/$0050 実行中の ステー トメントのあるアドレスを示します. 
$0051/$0052 読みとっている DATA 文のある行番号を示します. 

$0053/$ 0054 読みとっている DATA のあるアドレスを示します. 

$ 0 0 5 D FAC 2 に格納されている数の型を示す値がはいり 

ます.値は，$ 0 017 のそれと同じです.しかし， 
この値は常に正確にセットされているとは限らないの 
で注意が必要です. 

$ 0 0 7 4〜 $ 0 0 7 C FAC 1 として使用します.くわしくは第 4 章を御 

参照下さい. 

$0082 〜 $008A FAC2 として使用します. 

$ 0 0 9 D AUTO 機能を選択するかどうかのフラグです. 

0 : AUTO 機能は選択しない， 

0 以外： AUTO 機能を選択する. 

$009E/$009F AUTO 機能での次の行番号を示します. 

$OOAO/$OOA1 AUTO 機能での行番号の増分を示します. 

$ 0 0 A 6/$ 0 0 A 7 LI S T などで用いられる，“•”（ピリオド）の行番 

号を示します. 
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$ 0 0 A 9 

$ 0 0 AC 

$ 0 0 AD/$ 

$ 0 0 B 1 

$ 0 0 B 2/$ 

$ 0 0 B 4 /$ 

$ 0 0 B 8 ~ $ 

$ 0 0 B F 
$ 0 0 C 0 


T R AC E 機能を選択するかのフラグです. 

0 : TRACE 機能は選択しない 
0 以外： TRACE 機能を選択する. 

エラーコードがはいります . システム変数 ERR を 
示します. 

OAE エラーがおきた行番号を示します.システム変数 E 

RL を示します.ダイレクトモードでエラーが生じた 
場合には， $FFFF となります. 

通常は 0 であるが， ONERRORGOTO による 
エラー処理ルーチン実行中は$ FF となります. 

0 B 3 エラーをおこしたステートメントのあるアドレスを 

示します. 

0 B 5 ONERRORGOTO で指定した行のあるアドレ 

スを示します.この値が0のときは，エラートラップ 
機能は選択されません. 

0BA 数値出力の際のフォーマット指定を示します.くわ 

しくは，第 4 章を御参照下さい. 

入出力の際に用いられる論理機番を示します. 

入力の際にエラーが生じたかどうかを示すフラグで 
す. 0以外のときはエラーが生じたことを示します. 
生じるエラーには， Input Past End., Device 1 /0 
Error 等があります. 
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$ 0 0 C 3 画面の桁数 （WI DTH 文第 1 パラメータ）を示し 

ます. 

$ 0 0 D 1 プロテクトフラグです.この値が0以外であると， 

プロテクトがかかっていることを示します.プログラ 
ムにプロテクトがかかっている時には， モニタ からこ 
のアドレスを0にすることにより，プロテクトは解除 
できます. 

$00 DE - $ 0 0 E 0 B I 0 S へのジャンプ命令 （JMP $ F 17 D ) が 

書かれています. 

$00 EB /$ 0 0 EC 最後に実行された LINE 文の終端の X 座標を示し 

ます. 

$ 0 0 ED /$ 0 0 EE 最後に実行された L INE 文の終端の Y 座標を示し 

ます. 

$0100〜 $017 F BASI C 内部から Display Sub System を使用す 

るときにコマンドをセットする領域です. 

$01 D 1 〜 $01 E 2 メイン CPU に割り込み （ SW I をふくむ）がかか 

ると，それぞれ以下のアドレスにジャンプしてきます. 
($ FFF 2 FFFC のべクトルがそれぞれ以下 

のアドレスを指•している） 

初期状態では， SWI，SWI 2, SW 13, NM 
I のアドレスには RTI ($ 3 B ) が書かれており， 
IRQ のアドレスには ， J MP $ D 2 FC , FIRQ 
のアドレスには ， J MP $ C 9 5 3が書かれています. 

ユーザーがこれらの割り込みを使用する場合には， 

$ F F F 2〜$ F F F C のベクトル か， このアドレス 
を書き替えて，割り込み処理をすることになります. 
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$ 01 E 3 


$ 01 E 5 
$ 01 E 6 
S 01 E 7 /S 01 

S 01 E B 

$ 01 E F 
$ 01 F 0 / $ 01 

$ 01 F 2 / $ 01 


SWI 3 $ 1 D 1 

SWI 2 $ 1 D 4 

SWI $ 1 D 7 

NMI $ 1 DA 

IRQ $ 1 DD 

F I RQ $ 1 E 0 

LPTO を改行する際に，マスクするコードを示し 
ます. 

通常$ 0 D がセットされています. LPT 0 を改行 
する際には，$ 0 D , $ 0 A が順に出力されますが， 
そのうち，$ 0 D はマスクされて出力されず，$ 0 A 
のみが出力されます，しかし，改行以外の時に $0 D 
を出力した場合には，そのまま出力されます. 

キャラクタの色を示します. 

背景色を示します. 

8 UNL I ST の行番号を示します， LIST 時に， 

この値以 li の行は表示しません.これを解除する時に 
は，このアドレスに$ FFFF を書き込みます. 

ディバイス名を衍定しなかった場合に選択するデ/ < 
イスの物理機#を示します. ROM モードのとき$0 
2, D I S K モードのとき$ 8 0となります. 

基本のステートメントの数を示します. （$68) 

1 基本のステートメントの予約語テーブルのアドレス 

を示します. （$8890) 

3 基本の ステー トメントのジャンプ テー ブルのアドレ 

スを示します .（$ 8 ADA ) 
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$ 01 F 4 
$ 01 F 5/$ 0 

$ 01 F 7 / $ 0 

$ 01 F 9 

$ 01 FA /$ 0 

$01 FC /$ 0 

$ 01 FE 
$01 FF /$ 0 

$ 0 2 01 /$() 

§ 0 2 0 3 

$0204 / $0 

$ 0 2 0 6 / $ 0 


基本の関数の数を示します. （$2 B ) 

1 F 6 基本の関数の予約語テーブルのアドレスを示します. 

($ 8 A 2 C ) 

1 F 8 基本の関数のジャンプテーブルのアドレスを示しま 

す.（$8816) 

D I S K 用ステートメントの数を示します. （$0 
6 ) 

1 F B D I SK 用 ステートメ ントの予約語 テーブルの アド 

レスを示します. （$7314) 

1 FD DI SK 用ステートメントの処理アドレスを示しま 

す. （$ 7 3 6 F ) 

D I SK 用関数の数を示します. （$09) 

200 DISK 用関数の予約語テーブルのアドレスを示し 

ます.（$ 7 3 3 0 

2 0 2 D I SK 用関数の処理アドレスを示します .（$ 7 3 

8 6 ) 

拡張ステートメント （ PLAY など）の数を示しま 
す. （$06) 

2 0 5 拡張ステ ー トメントの予約語テーブルのアドレスを 

示します. （$8030) 

2 0 7 拡張ステートメントの処理アドレスを示します. 

($ 8 0 5 A ) 
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$ 0 2 0 8 


披張関数 （ LPOS ) の数を示します .（$ 0 1) 


$ 0 2 0 9 /$ 0 2 0 A 拡張関数の予約語テーブルのアドレスを示します. 

($ 8 0 7 1 ) 

$ 0 2 0 B /$ 0 2 0 C 拡張関数の処理アドレスを示します.（$ 8 0 7 7 ) 

$ 0 2 0 D 再拡張ステートメント（未使用）の数を示します. 

($0 0 ) 

$ 0 2 0 E /$ 0 2 0 F 再拡張ステートメントの予約語テーブルのアドレス 

を示します.（未使用なので$ 0 0 0 0 ) 

$0210/$0211 再拡張ステ ー トメントの処理アドレスを示します(未 

使用のため Syntax Error のアドレス （$9 2 A 0) 
となっています）. 

$0212 再拡張関数（未使用〉の数を示します. （$00) 

$ 0 213/$ 0 214 再拡張関数の予約語テーブルのアドレスを示します. 

(未使用なので$ 0 0 0 0 ) 

$0215/$0216 再拡張関数の処理アドレスを示します.（未使用のた 

め Syntax Error のアドレス （$ 9 2 A 0 ) となってい 

ます.） 

$0217/$ 0 218 EXEC のアドレスを示します.未設定の場合には 

Illegal Function Call のアドレス （$ 9 6 6 3> となり 

ます. 

$ 0 219 - $ 0 2 2 C USR 0 〜 USR 9 のアドレスを示します.未設定 

の時は EXEC の場合と同様となります. 
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$022 D 〜 $02 A 1 


拡張のためのフッ クがあります. 


$ 0 2 6 3 ~ $ 

$ 0 2 6 9〜$ 

$ 0 2 8 4 -$ 

$ 0 2 9 C 〜 $ 

$ 0 2 A 2〜$ 
$ 0 2 B 2 /$ 

$ 0 2 B 4/$ 

$ 0 2 B 6 ~ $ 


2 6 5 ステ ー トメントを実行するたびに J SR してきます. 

通常は RTS となっています. 

2 6 B MON コマンドを実行する場合に J S R してきます. 

通常は RTS となっています. 

2 8 6 TE RM コマンドを実行する場合に J S R してきま 

す.通常は RTS となっています. 

2 CE E XT I RQ がかかったときに， JSR してきます. 

通常は RTS となっています. 

2 AB TAB キーの力ーソル停止位置を示します. 

2 B 3 デバイスの登録テーブルのアドレスを示します. 

($0 6 EC ) 

2 B 5 論理機番と物理機番の対応テーブルのアドレスを示 

します.（$ 0 7 0 0 


2 B F 0 N 〜 G 0 S U B の割り込み用のテーブルがあるア 

ドレスを示します. 


02 B 6/$02 B 7 
02 B 8/ S 02 B 9 
0 2 BA /$ 0 2 BB 
0 2 BC /$ 0 2 BD 
02 BE /$02 BF 


PEN (税在未使用) 
COM ( n ) 

KEY ( n ) 

T I ME 

I NTERVAL 


($ 0 71 E) 
($ 0 7 2 3 ) 
($ 0 7 3 0 
($ 0 7 6 E ) 
($ 0 7 7 3 ) 
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$02 C 0 〜 $02 C 9 COMn の登録テーブル （ COMO 〜 COM 4 ) で 

す.つながっている場合には各ルーチンべクトルのあ 
るアドレスを示します. 

$ 0 2 D 5 CAS 0 においてのエラーの種類を示します. 

0 :エラーな し 

1 :チェックサム エラー 

2 :読み込みエラー （ BIOS で生じるもの） 

$ 0 2 DB ファイルのタイプを示します. 

0 : BAS 1 C の ソース 
1 : BA S IC の データ 

2:マシン語ファイル 

$ 0 2 DC ファイルの アスキーフラグを示します. 

$00 :バイナリファイル 
$ F F * アスキー ファイル 

$ 0 2 DD ファイル名の長さを示します. 

S 02 DE - S 02 E 5 ファイル名が入ります • 8文字に満たない部分には 

$20 (空白）を埋めます. 

$ 0 2 E 6 入出力を行なうデバイスの物理機番が入リます. 

$02 E 7~$02 EC ファイルオプションが入リます. 

$02 F 4 〜 $02 F 9 直前にタイマを参照した時の時刻です. 

$02 FA 〜$ 0 2 FF f ! 付が格納されています.$02 FA ， B が年，$ 2 

FC , D が月，$ 0 2 FE , F が1:]を表わしています. 
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$ 0 3 0 D 


画面の行数 （WI DTH 文第2パラメータ）を示し 


ます 


m 


$ 0 3 0 E 


スクロール 開始行を示します. 


$ 0 3 0 F 


スクロール 終了行を示します. 


$0310 


ファンクシヨンキー表示フラグです 


:非表示 


0以外：表示 


$0313 


この値が0でない場合， BREAK キーが押された 
とを示します. 


$0314/$0315 


MON コマンドでのリードライトを行なうアドレス 

を示します. 


$0318〜 $031 E RND のためのワークエリアです. 

$ 0 31 F 〜$ 0 3 3 8 型宣言を行なった変数の型を示しています （ A 〜 Z 

の2 6バイト〉.宣言されていない場合には$ 0 4 (単 
精度）となっています. 

$033 A 〜 $043 C キー入力された BAS IC テキストの中間言語に変 

換されたものが格納されます. 

$043 D -$ 0 53 C 1行入力のときに入力された文字列が格納されます. 

$ 0 5 9 A タイマなどの割り込みがおきた回数を示します. 

$059 D /$059 E ユーザーが使用できる RAM の最終アドレスー1の 

値を示します， 

$05 A 0-$0 5 A 7 BAS IC 内部から BI OS を使用するときに ， R 

CB をセットする領域です. 
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$ 0 5 A 8 


$05 AA /$ 

$ 0 5 AC 

$ 0 5 AD 

$ 0 5 AF /$ 

$ 0 5 B 1/$ 

$ 0 5 BF 

$ 0 5 D 2 

$ 0 5 DD 
$ 0 5 DE 


画面のコンソールコントロ ー ルに用いる値です • bit 
0 が力ーソルの表示を示します . 

5 AB LPTO のルーチンべクトルのあるアドレスを示し 

ています.（$ 0 7 7 8〉 

この値を0以外にしておくと，論理機番〇による画 
面出力の際，プリンタにも出力されます. 

単色表示であるかを示すフラグです. 0以外のとき 
単色表示であることを示します. 

5 B 0 PF キーが割り込みに設定されている場合に該当す 

るビットが1となります.$ 0 5 B 0の bit 0が P F 1 
に対応します. 

5 B 2 この値が0でない場合， PF キー割り込みがあると 

この値をアドレスとしてジャンプします.ジャンプし 
たルーチンの最後は RT I で終了しなければなりません. 

プリンタに対する改行制御をこの値によって行ない 
ます . くわしくは ，「ユーザーズマニュアル システム 解 

説」を御参照下さい. 

0 : F 指定 
1: N 指定 

$ FD 0 2に書き込んだ値を保持しています.通常 
は$40 ( RxRDY だけ使用〉となっています. 

S CREEN 文の第1パラメータを保持しています. 

SC REEN 文の第2パラメータを保持しています. 
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$05 DF 〜 $05 E 1 メイン CPU への 2. 0 3 m s ごとの T I ME R 割 

り込みのときに J SR してきます. PLAY 文でこの 
割り込みを使用しているので，通常 J MP $ E D 7 
2となっています. 

$05 E 2 〜 $05 E 4 メイン C PU への KEY 割り込みのとき J S R して 

きます.通常は RTS となっています. 

$05 ED -$06 EB CAS 0の入出カバッファです. PLAY 文でも使 

用しています. 

$06 EC 〜 $070 B ディスクを除く，入出カデバイスの登録テーブルで 

す.$ 0 6 EC , D に物理機番〇に対応したデバイス 
のルーチンべ クトルがあるアドレスが書かれています. 
この値が0の物理機番は使用されません. 

$070 C 〜 $071 D 論理機番と物理.機番の対応テーブルです.論理機番 

0-17 までの18バイトです. 

物理機番 
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登録テーブル 


ル—チンベクトル 



デバイス名 


0 P E N の 

アドレス 

C L 0 S E の 

アドレス 
I バイト入力の 
アドレス 
I バイト出力の 
アドレス 
P 0 S の 
アドレス 
E 0 F の 
アドレス 
L 0 F の 
アドレス 


OPEN 

CLOSE 

IN 

OUT 

POS 

EOF 

し OF 


KYBDs 
*DB1F 
»DB25 
车 DB54 

♦ D9D9 
¢09.92 

♦ CEF4 
*CEF4 


SCRNs 
*D99E 
幸 D9A4 
«DB54 
*D9D9 
¢0992 
»CEF4 
*CEF4 


CASOs 
车 CA06 
»CAB6 
*CB02 
幸 CB1E 
»CB4D 
*C9FA 
*CA02 


LPTO: 
*D9A5 
$0615 
*CEF4 
*D617 
幸 D39C 
*CEF4 
*CEF4 


COMO: 
»D1 AD 
奉 D198 
«D2B5 
¢0250 
*D39C 
»D3A5 
车 D3B4 
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PEN (現在未使用〉 
COM ( n ) 

KEY ( n ) 
TIMER 
I NTERVAL 


各割り込みについて 5 バイトずつ使用されていて， 
意味は以下の様になります. 

Byte 0 : 0以外のとき ON 状態であることを示します. 

Byte 1: 0以外のとき STOP 状態であるか，割り込み处； 

理ルーチンを実行中であることを示します. 

Byte 2 : 0以外のとき割り込みがあったことを示します. 

Byte 3,4: 0 N 〜 G 0 S U B で指定された行のあるアドレス 

を示します. 

$0778〜 $078 C LPT 0のルーチンべクトルがあります. 

$ 0 7 9 0 ROM モードの場合このアドレス以降に BAS IC 

TEXT が格納されます. 


$071 E 〜$0777 ON 〜 GOSUB の割り込み用のテーブルです. 


2 B D 2 7 
2 3 0 7 7 
7 7 7 7 7 
0 0 0 0 0 
$ $ $ $ $ 

----- 
E 3 c E 3 

r—H IX 〇〇 rthv 71 

7 7 7 7 7 
0 0 0 0 0 
$ $ $ $ $ 
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7. Ci rcui t Diagram 






本章では， FM - 7の全回路図を紹介します. 

これらの回路図は全て秀和システムトレーディング株式会社において調杏した 
もので，メ ー カ ー が保障したものではあリません.あくまでも参考図としてお使 
いください.したがいまして，本冋路閒集に関してメーカー等に商接問い合わせ 
ることはご遠慮ください. 


本间路図集は， FM — 7本体をブロ 
のです. 

I . ブロック図 

II . 回路図 

1 . メイン CPU 

2. クロック制御 

3. メイン I /0アドレス 

4 . メイン R 0 M 

5 . メイン] RAM 

6 . メイン*ブザ ー 

7 . メインプリンタ•カセット 
8 . 共有メモリ 

9 . サブ CP U 

10. サブ•アドレス•デコード 

11. サブ ROM/RAM 
11. サブ REG/FLAG 
13. サブ CRT/CNTRL 

III . 部品実装図 


ック図，回路図，実装図に分類しまとめた 


14. サブ CRT アドレス 

15. サブ CRT RAM 

16. サブ CRT インタフェース 

17. キーインタフ： c — ス 

18. 拡張バス • バッファ 

19 .コネクタ拡張 • Z 8 0 

20. コネクタ /P S G , 漢字 ROM 、 

\R S - 2 3 2 C ) 

21. メイン P S G 

22. 電源 

23. 漢字 ROM 

24. コネクタ漢字，電源 

25. キー •マトリックス 


1 . 本体部品番号図 

2 . 本体部品配置図 

3 . 漢字 ROM , PSG 基板部品#号図，配置図 
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车 CO NEW 


$AD54 
漆 AD81 
$8F32 
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¢01 

GET 

*E7EF 

*C2 

PUT 

$E80A 

¢03 

CIRCLE 

*E352 

*C4 

CONNECT 

*DCFA 

*CS 

SYMBOL 

事 DDA8 

«C6 

GCURSOR 

*DE33 

*C7 

BUBINI 

»EB8E 

车 CB 

BUBW 

»EB 91 

*C9 

BUBR 

*EB 94 

*CA 

KILL 

*EB9A 

*CB 

INTERVAL 

漆 E3BA 

车 CC 

TAB ( 


*CD 

TO 


*CE 

SUB 


*CF 

FN 


车 DO 

SPC ( 


$D1 

USING 


»D2 

USR 


¢03 

ERL 


»D4 

ERR 


*D5 

OFF 


«D6 

THEN 


车 D7 

NOT 


»D8 

STEP 


*D9 

+ 


奉 DA 



«DB 

菁 


奉 DC 

/ 


*DD 

へ 


«DE 

AND 


车 DF 

OR 


*E0 

XOR 


»E1 

EQV 


*E2 

IMP 
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»B0 

»81 

$82 


♦ FF 
*FF 
*FF 

♦ FF 
*FF 
*FF 
*FF 
幸 FF 

*FF 

*FF 

*FF 


«B3BE 
*B472 
«B3D5 
*972C 
*C92A 
奉 BAEE 
»BOAA 
»BB5B 
»BE 60 
»BE66 
$BEB1 


DSKINI 

DSK0» 

NAME 

FIELD 

LSET 

RSET 


CHAIN 

ERASE 

LLIST 

し PRINT 

SOUND 

PLAY 


*73A1 
¢7565 
漆 7CE6 
*7D4E 
*7DAS 
*7DA7 


»808E 
*8448 
»CD8S 
*9A7F 
»EBBA 
*EC 72 


3456789 A 
88888888 
»«»« 事 $«» 


NT5ESR6PS 

6NBROQOXO 


N N 
I A 


s 


AFPS 



ECS 



a 7 A B c D E F o i 2 3 
JEEEEE EEFFFF 




Kp kr tr bp 


D 

□ 

M ¥ > li V 

3 4 5 6 7 

E E E E E 

bp 

VT VT VT 



$FF 

$8B 

ATN 

*BEF5 

车 FF 

漆 SC 

PEEK 

*9A26 

*FF 

车 8D 

し EN 

*992A 

幸 FF 

»8E 

STR$ 

¢9752 

漆 FF 

*BF 

VAL 

*99CA 

车 FF 

¢90 

ASC 

¢9947 

*FF 

¢91 

CHR 窜 

¢9933 

*FF 

*92 

CINT 

*BC74 

$FF 

¢93 

CSN6 

tBCEO 

漆 FF 

¢94 

CDB し 

»BCCD 

车 FF 

漆 95 

FIX 

$6461 

*FF 

¢96 

SPACE* 

¢9078 

$FF 

¢97 

HEX* 

*9E2C 

$FF 

¢98 

OCT* 

奉 9E2D 

$FF 

*99 

LOF 

«D1ID 

SFF 

*9A 

EOF 

*D11A 

率 FF 

*9B 

PEN 

*025A *0257—— 


舉 FF 

*9C 

LEFT 漆 

*9952 


*FF 

¢90 

RIGHT 寒 

车 996F 


*FF 

*9E 

MID 漆 

¢9979 ¢9001—— 


*FF 

*9F 

INSTR 

*9CD4 


♦ FF 

车 AO 

SCREEN 

*EAF6 *EB4B — 

wmm t 

奉 FF 

车 A1 

ANPORT 

$AED2 

入つ - 卜 

*FF 

隼 A2 

VARPTR 

事 A952 

— メントの 

$FF 

*A3 

STRING* 

¢9059 

1 场合 

*FF 

«A4 

RND 

幸 BBFE 


*FF 

*A5 

INKEY* 

»DB84 


*FF 

车 A6 

INPUT 

隼 DISC *BFDD —— 

t- 

*FF 

*A7 

CSR し IN 

¢0923 


♦ FF 

車 A8 

POINT 

*DF78 


$FF 

*A9 

TIME 

«E11 A 奉 E1E4 — 


*FF 

$AA 

DATE 

¢£190 *E291 — 
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*FF 车 AB DBKF *7C15 
*FF *AC CVI *7C3D 
*FF »AD CVS ¢7040 
♦FF *AE CVD ¢7043 
$FF *AF MKI$ *7C55 
车 FF *B0 MKS* *7C5B 
*FF *B1 MKD* *7C5B 
*FF »B2 し DC ¢7072 
*FF $B3 DSKI» *75A4 


*FF «B4 し POS $C947 


4 テーブル • アドレスー覧 ► 

中間コード 予約語テーブル ジャンプ•テーブル 

*80~*CB 奉 8890 〜 *B9E6 *8ADA 〜 *SB71 

*CC~*E7 *89E7 〜 *8A2B 

*EB〜$ED $7314 〜 *732F ¢7330 〜 》 733B * 

*EE~*F3 *8030^*8040 *B04E 〜车 8059 

车 FFBO 〜 *8A2C~»8AD9 *8B16~*886B 

*FFAA 

*FFAB~ *7330^*7350 $735D 〜 $736E 簧 

*FFB3 

*FFB4 ¢8071〜¢8074 *8075^*8076 


* : DIS K モ ー ド 
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c :マシン語モニタ処理アドレス 


3マンド 

G (指定アドレスへ分岐〉 
D (指定アドレスから6 メ 
R (レジスタ表示.変吏) 
M (メモリ内容変更） 


卜表示) 


処理アドレス 

$ AC 2 F 
$ ACC 4 
$ ACFB 
SAC 9 5 


D :キャラクタコ 




ド表 


上位4ビ 


maa 


2 

3 

A 

5 

6 


8 l 9 lABCDEF 





# 



s 


BHDIIQEKP"S_ 回 BQIi 回 


夕 




2 s x d 2 


3E x d 3 




、、J 


□== 




qbBBQB - I - HBBBsIIO 


T 



4E 


5 e 0 n k % 


odbddd 


BBEIBD 





6| a k s n 


B l1 £ B 

8| B s C N 


9 | h t e m 


0 BBDDD 一 ■■ 


ブカー 


Elk 




IIBBBBJ 


時 


分 


秒 



F 


B 


c 


D 


E 


■Bl 

MB 

■dI 

IBIBH 


HBDQEIHIISD 



クネリ參 


ル 



B 


S B 


E C 




< 


圃圔口圔 Bana 


DDDDinDBHH 
DEHIB IISEaBDQ 

Idiidd eibqb_ 

■■■ mmam 




□ 



市 


ヌ 


n 


ヤシフワ 


口醒 



ISIBBH 



i 1 




ン〇 


m 


























































RAM 



共有 R A M 
(I 2 8 B) 


I 2 8 B) 


サフ c p u 


領域 









領域 













F :マシン語プログラム入力のしかた 


本書では，サンプルプログラムをアセンブル•リストの形で載せています•こ 
のため，アセンブラを持たない読者の方は，アセンブルリストの左側に出力さ 
れている16進コードを，モニタによって入力しなければなりません.この際， 
注意すべき点に触れながら，入力方法を示します. 

まず，アセンブル•リストの出力形式を見て下さい.このリストは，富士通が 
提供している「アブソリュート•アセンブラ （ FM 7 用） j によって出力された物 
です. 

① 行番号 

② アドレス 

③ マシン語命令コード （2 バイトのときもある） 

④ マシン語オペランド 

⑤ 相対分岐命令 （ BSR ， BEQ など）の分岐先のアドレス 

このうち，入力しなければならないのは，③，④の部分です. 

具体的には， M コマンドで，5 0 0 0番地から，ワクのかかっている部分を入 
力します.このとき，一行入力し終わるごとにアドレスの値を確認すると誤りが 

少なくなります.（特に，相対分岐命令の分岐先を入力しないように気をつけて下 

さい，） 


PAGE 001 ( 


01000 




普 


01010 





二 3 。 

01020 




普 


01030 





OPT 

01040 



9BDB 

MESSAG 

EQLJ 

01050 



FD03 

BEEP 

EQU 

01060 

500 




DRG 

01070 



5000 

START 

EDU 

01080 




M- 


0 3 090 

5000 

■画 

8D 0013 

NEXT 

LEAX 

01100 

5004 

BD 

9BDB 


JSR 

01110 

5007 

B6 

41 


LDA 

0 U 20 

5009 

B7 

FD03 


STA 

01130 

500 C | 

20 

F2 | 

5000 

BRA 

01140 




箐 


01 150 

50 OE 


00 Ofi 

WORK 

RMB 

01160 

5018 


ODOA 

MES 

FDB 

Ol170 

50 1A 


53 


FCC 

01180 

5026 


00 


FCB 

01190 



5000 


END 


TOTAL. ERRORS U0000 〜 - 0O00C> 
TOTAL WARNINGS 00000 —0Ofson 


7 で，メイ 3 ウサンフ 0 I レフラ厶 

N00, NOB,NOS , PAGE^255 
$9BDB output message i ram (X+l)till 
$FD03 I/O address o-f BEEF' 

¢5000 

MES - 1,PCR 

MESSfiG 

# 7.01000001 

BEEP 

NEXT 

10 

¢000 A 

'SAMPLE PROGRAM # 

0 

START 


PROGRAM BEGIN ADDR- 5000 
PROGRAM END ADDR=5028 
PROGRAM ENTRY ADDR- 5000 
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次に疑似命令（本書では， FCC ， FCB , FDB , EQU , ORG , OPT , 
RMB , EN D を使用）のところの入力方法ですが ， E QU，EN D 命令の左に出力 
されているコードは入力しません. RMB の場合には，左に示されているバイト 
数だけアドレスを飛ばします（適当な値を入力します). 

FDB ， FCB の場合には，右に書かれている値を入力するようにします.右 
に複数の値がカンマ （，） で[ X 切られて示されている場合には，それらすべてを 
順に入力します.この場合，左には最初の値しか出力されていないので注意して 
下さい. 

例： 6 0 0 0 01 FC B 1, 2，3，4 

この場合には，6 0 0 0番地から順に1，2，3，4と6 0 0 3番地ま 
で入力する. 

FCB の場合には，さらに複雑になります. FCB の左には，右の文字列の最 
初の1バイトしか出力されていないので，2文字目以降のアスキーコードを入力 
していくことになります. 

例： 6000 41 FCC ’ ABC ’ 

この場合には，6 0 0 0番地から順に$ 41，$4 2，$4 3と入力し 
ます. 

以上のようにして入力したプログラムは，リスト木尾のアドレスにしたがって 

SAVE , EXEC して下さい. 


MON 




*M 5000 



5000 

00-30 

5014 

00-00 

500 1 

00 - 8D 

5015 

00-00 

5002 

00 -00 

5016 

00-00 

5003 

00-13 

5017 

00-00 

5004 

00 -BD 

50 i 8 

00-OD 

5003 

00-9B 

5019 

00-0 A 

5006 

OO-DB 

50 1A 

00-53 

5007 

00 -86 

501B 

0 0 - 41 

5008 

00 —41 

501C 

(X 卜 4D 

5009 

00 - B7 

50ID 

00-50 

50 OA 

OO-FD 

501E 

00-4C 

50 OB 

00 -03 

501F 

00-45 

50 DC 

00 - 20 

5020 

00-20 

50 OD 

0 0 ** F 2 

5021 

〇〇 — 50 

50 OE 

0 0 — 0 0 

5022 

OC 卜 52 

50 OF 

00-00 

5023 

00-4F 

5010 

00 - 00 

5024 

00-47 

5011 

00 —00 

5025 

00-52 

5012 

00—00 

5026 

00— 41 

5013 

00 —00 

5027 

00-4D 



5028 

00—00 



5029 

00—. 


¥■ 


*05000 

5000 30 8D 0013 BD 9B DB 86 
5008 41 B7 FD 03 20 F2 00 00 
5010 00 0C* 00 00 00 〇〇 00 00 
5018 OD OA 53 41 4D 50 4C 45 
5020 20 50 52 4F 4752 41 4D 
5028 00 00 00 00 00 〇〇 00 00 
5030 00 00 00 00 00 00 00 〇〇 
3038 00 00 00 00 00 00 00 〇〇 


Break 

Ready 
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